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SECTION  I 


INTRODUCTION 

Geographic  Data  Display  (GDD)  is  a tool  developed  by  Project 
7090  to  aid  the  real-time  display  of  operational  and  intelligence 
information.  This  data  is  readily  available  in  Command,  Control 
and  Communication  Centers,  but  it  is  available  in  such  copious 
quantities  that  it  must  be  summarized  and  properly  displayed  to  be 
useful.  This  "properly  displayed"  is  the  motivation  behind  the  GDD. 

Major  subsets  of  operational  and  intelligence  data  are  posi- 
tional in  nature,  and  therefore  any  method  of  representing  the  data 
for  quick  reference  by  an  operator  requires  a map.  For  a more 
detailed  analysis  the  actual  raw  data  of  latitude,  longitude  points 
must  also  be  available  to  an  operator,  but  obviously  an  operator 
can  more  rapidly  assimilate  information  from  a graphics  image  than 
from  a list  of  data  points. 

One  intention  of  Project  7090  is  to  develop  techniques  for 
displaying  operations/intelligence  information  over  a wide  range  of 
granularity  — from  data  summarized  over  a large  area  of  several  hundred 
miles  to  individual  reports  displayed  over  only  ten  square  miles.  To 
support  this  summarization  task,  maps  are  required  that  adequately  re- 
present the  geography  at  any  needed  scale.  The  Geographic  Data  Display 
System  has  the  needed  capability  to  project  detailed  maps  as  back- 
ground for  information  displays  over  a wide  range  of  scales. 

The  specific  problem  addressed  by  the  GDD  is,  then,  the 
manipulation  of  geographic  data  to  provide  adequate  resolution  of 
geographic  features  over  a wide  range  of  scales.  If  more  data  is 
displayed  than  can  be  absorbed  by  the  resolution  of  the  display 
device,  the  features  will  appear  fuzzy.  If  too  little  data  is  used, 
the  geography  will  appear  sparse  and  angular,  and  the  viewer  may 
lose  any  sense  of  context.  Since  the  purpose  of  the  GDD  is  to 
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allow  a viewer  to  zoom  in  and  out  on  a displayed  map  and  still 
maintain  clear,  detailed  geographic  feature  representation,  an 
ability  to  dynamically  vary  the  amount  of  data  used  for  the  display 
had  to  be  developed.  The  solution  to  this  problem  used  by  the 
GDD  was  levels  of  detail. 

A level  of  detail  of  a geographic  feature  is  a map  containing 
a fixed  amount  of  data  representing  that  feature.  It  can  only  be 
displayed  over  a relatively  small  range  of  scale  before  it  gives 
fuzzy  or  angular  displays.  For  any  feature  several  levels  of 
detail  are  defined;  each  successive  level  contains  more  data 
than  the  last, and  each  level  is  displayed  only  over  its  defined 
scale  range.  When  the  user  zooms  out  of  the  scale  range  of  a 
level  of  detail,  the  display  is  defined  from  the  next  level  of 
detail.  Such  a scheme  solves  the  problem  neatly  and  puts  no  limit  , 
on  the  scales  that  can  be  displayed  by  the  system. 

To  make  the  GDD  even  more  flexible,  not  only  is  the  amount 
of  data  displayed  variable,  but  the  actual  geographic  features 
displayed  can  be  varied  by  the  user  to  tailor  the  display  to  his 
needs.  There  is  a feature  library  in  the  system  containing  coast 
lines,  political  boundaries,  rivers,  roads,  etc.  The  user  can 
select  from  this  library  the  features  he  wants  displayed  for  his 
particular  application.  Each  individual  feature  is  divided  into 
levels  of  detail,  allowing  the  detail  of  features  to  be  adjusted 
independently  of  one  another. 

Another  paper,  ESD-TR-77-360 , "Geographic  Data  Base  Development," 
thoroughly  describes  the  data  base  preparation  process  and  programs. 
This  paper,  then,  is  intended  primarily  as  implementation  level 
documentation  for  the  GDD.  It  will,  however,  give  the  reader  a 
broad  overview  of  the  system. 


8 


The  first  section  simply  describes  the  GDD  - how  the  user 
sees  it  and  what  it  does  for  him.  The  next  section  is  an  over- 
view of  the  conceptual  design  which  begins  by  establishing  the 
user  needs  and  describing  the  data  bases  the  system  will  use.  The 
section  then  develops  the  design  of  the  GDD  around  these  givens 
and  concludes  with  the  data  structures  and  data  management  tech- 
niques used  in  implementation.  Section  IV  covers  the  system 
architecture  and  software  tools  used  to  implement  the  GDD.  The 
final  section  provides  top  level  documentation  for  each  of  the  six 
modules  of  the  GDD.  The  appendices  contain  additional#  more  detailed 
documentation  of  the  programs,  variables  and  operating  procedures. 
The  appendices  assume  a working  knowledge  of  the  7090  computer 
facility’s  operating  system. 
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SECTION  II 


GEOGRAPHIC  DATA  DISPLAY  SYSTEM 


INTRODUCTION 

To  the  user  the  GDD  is  a TV  screen  on  which  maps  are  pro- 
jected as  background  for  operation  and  intelligence  information 
displays.  Using  a trackball  and  function  keyboard  the  user  can 
invoke  a few  basic  functions  for  manipulating  the  display  and 
tailoring  the  display  to  his  needs.  In  this  section,  these  functions 
and  other  capabilities  of  the  GDD  are  described  as  they  appear  to 
the  user. 

OPERATOR  CONTROLS 

To  operate  the  GDD,  the  user  sits  in  front  of  a TV  screen  with 
a function  keyboard  and  a trackball  positioned  near  by.  Figure  1 
shows  an  operator  working  with  the  GDD. 

The  function  keyboard  diagrammed  in  Figure  2 has  twelve  buttons, 
of  which  eight  are  currently  used.  Three  of  these  are  for  zoom 
and  translate  requests,  two  for  feature  selection  from  a menu  and 
three  for  changing  the  modes  of  the  system.  These  functions  are 
described  below. 

The  trackball  controls  the  position  of  a cursor  on  the  TV  screen. 
The  cursor  is  used  to  select  a point  on  the  display  for  use  in 
performing  a translate,  zoom  or  feature  selection  function. 

TRANSLATE  AND  ZOOM 

The  portion  of  the  world  displayed  on  the  TV  screen  can  be 
fully  described  by  its  center  point  and  extent*.  The  user  can 

^Extent  is  defined  as  the  inverse  of  scale.  The  GDD  was  implemented 
using  variables  representing  extent.  To  be  consistent,  extent  is 
used  throughout  the  document. 
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Figure  1.  Display  and  Controls  of  the  Geographic  Data  Display  System 
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manipulate  the  display  he  sees  by  manipulating  the  center  point  and 
extent  with  translate  and  zoom  functions. 

Translation 

Translation  changes  the  center  point  of  the  displayed  map.  The 
user  selects  a point  on  the  display  screen  by  positioning  the 
trackball-controlled  cursor  over  the  desired  point.  When  the 
translate  function  key  is  hit,  the  GDD  moves  the  point  designated 
by  the  cursor  to  the  center  of  the  display  screen.  The  photographs 
in  Figure  3 show  a before  and  after  sequence  of  a translate. 

Note  that  part  of  the  map  that  was  not  in  the  original  display  has 
been  brought  on  from  off  the  screen.  In  essence,  the  user  is 
viewing  the  map  through  a restricted  window.  As  the  user  translates, 
he  moves  the  window  around  the  map  to  view  a different  area.  If 
the  user  translates  out  of  the  mapped  region,  he  will  see  a boundary 
line  marking  the  edge  of  the  map.  Beyond  this  edge  the  map  will  be 
blank. 

Zoom 

With  the  zoom  function  the  user  can  alter  the  extent  of  the 
area  displayed  around  the  center  point,  effectively  changing  the 
size  of  the  restricted  window  in  the  analogy  used  above.  The 
operator  uses  the  trackball  to  position  the  cursor  over  the  point 
he  wishes  to  remain  stationary  during  the  zoom.  The  user  hits 
either  the  zoom  in  or  zoom  out  function  button  causing  the  distance 
between  the  selected  point  and  all  other  points  in  the  display 
to  be  either  multiplied  or  divided  by  the  magnification  factor 
(normally  1.5).  The  result  is  a change  of  extent  around  the 
cursor  as  seen  in  Figure  4,  another  before  and  after  sequence. 

This  is  the  simplest  zoom  that  is  done  by  the  system.  In 
Section  I we  spoke  of  displaying  maps  of  adequate  detail  at  all 
scales.  This  adjustment  of  detail  is  performed  automatically  by 
the  GDD  whenever  a zoom  is  requested  by  the  system.  Thus,  after 
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Figure  3.  Translation  Before  and  After  Sequence 
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Figure  4.  Zoom  Before  and  After  Sequence 
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the  zoom  described  above  is  done,  the  system  determines  if  there 
is  too  much  or  too  little  data  displayed  on  the  screen  for  the 
current  extent  value  and  adjusts  the  amount  of  data  accordingly. 

FEATURE  SELECTION 

In  the  introduction  we  also  spoke  of  the  operator  having 
the  ability  to  tailor  the  display  to  his  own  needs.  By  this  we 
mean  that  the  operator  controls  what  geographic  features  are  dis- 
played on  the  screen.  These  features  include  political  boundaries, 
roads,  rivers,  railroads,  etc.  In  order  to  have  an  effective 
display,  the  user  must  be  able  to  turn  these  features  on  and  off. 

In  the  GDD  this  is  done  with  a menu. 

Format 

The  menu  format  is  shown  in  Figure  5 and  is  displayed  on  the 
screen  when  the  ”menu"  function  button  is  pressed.  The  menu 
presents  the  user  with  a list  of  features  available  for  display; 
those  that  are  currently  displayed  contain  a number  in  the  ON 
column  indicating  the  amount  of  detail  with  which  the  feature  is 
currently  displayed  relative  to  the  total  amount  of  data  available 
for  that  feature.  A low  number  indicates  little  detail,  a higher 
number  more  detail.  The  number  in  parenthesis  directly  opposite 
the  features  in  the  list  indicates  the  maximum  amount  of  detail 
available.  The  last  line  on  the  screen  indicates  which  of  three 
operating  modes  the  system  is  in.  These  modes  are  discussed  in 
the  next  subsection. 

Macro  Expansion 

In  the  system  there  is  a macro  expansion  capability  for  feature 
selection.  A feature  in  the  menu  list  may  represent  several  feature 
data  bases.  For  example,  the  list  could  contain  the  word  "boundaries,” 
which,  when  selected,  would  be  expanded  to  represent  the  two  data 
bases  - coastline  and  political  boundaries,  each  of  which  could 
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also  appear  separately  in  the  list. 

Menu  Operation 

The  user  picks  a feature  for  display  or  deletion  by  positioning 
the  cursor  opposite  the  proper  feature  and  beneath  either  the  ON 
or  OFF  column  and  hitting  the  **select**  function  key.  The  system  will 
immediately  respond  with  an  acknowledgement.  The  response  could 
be  an  error  message  displayed  at  the  bottom  of  the  screen.  Possible 
error  conditions  are  the  cursor  is  not  positioned  opposite  one  of 
the  features  or  beneath  either  of  the  functions  or  a feature  is 
selected  for  deletion  which  is  not  currently  displayed.  If  the 
selection  request  is  allowed,  a message  is  displayed  at  the  bottom 
of  the  screen  and  either  an  X is  displayed  in  the  OFF  column  if 
a delete  was  requested  or  a number  representing  the  relative  amount 
of  detail  with  which  the  feature  will  be  displayed  is  inserted 
in  the  ON  column.  The  amount  of  detail  with  which  a selected 
feature  will  be  displayed  is  determined  by  the  system  as  a function 
of  the  current  extent  of  the  display  window. 

Before  any  of  the  selected  data  bases  are  displayed  or 
erased,  the  user  can  correct  any  of  his  choices.  If  an  operator 
has  selected  a feature  for  display  and  then  decides  he  no  longer 
wants  it  displayed,  he  can  select  that  feature  again  in  the  OFF 
column  and  the  effect  of  the  previous  selection  in  the  ON  column 
is  nullified.  The  same  is  true  if  the  user  has  inadvertently 
chosen  to  delete  a feature.  Selecting  it  again  in  the  ON  column 
will  produce  no  effect  on  the  display  of  that  feature. 

Once  the  user  is  satisfied  with  his  selection  of  features,  he 
hits  the  "menu"  function  key  again.  This  enters  the  user’s  choices 
and  erases  the  menu  from  the  display  screen.  Those  features  de- 
leted by  the  user  will  disappear  from  the  screen,  followed  by  the 
addition  of  any  newly  selected  features. 
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OPERATING  MODES 

The  GDD  will  operate  in  three  different  modes  - automatic, 
normal  and  special.  These  modes  control  the  degree  to  which  the 
user  can  adjust  the  amount  of  data  on  the  screen.  Only  feature 
selection  and  levels  of  detail  are  effected  by  the  mode  change. 

Mode  changes  are  caused  by  hitting  one  of  the  three  function 
buttons  shown  at  the  bottom  of  Figure  2.  The  system  is  initialized 
in  automatic  mode  and  remains  in  that  mode  until  a mode  key  is 
pressed.  The  system  stays  in  a mode  until  another  mode  is  selected 
by  the  user. 

Automatic 

Automatic  mode  allows  the  user  the  least  flexibility  of  the 
three  modes.  The  user  has  no  control  over  what  features  are 
displayed.  The  user  can  simply  zoom  and  translate.  As  he  zooms 
in  (or  out) , features  are  displayed  (or  deleted)  as  predetermined 
extent  thresholds  for  each  feature  are  crossed.  The  amount  of 
data  for  each  displayed  feature  is  also  automatically  adjusted 
to  the  extent.  If  a menu  is  requested,  it  is  displayed,  but  only 
as  a status  report  on  what  features  are  currently  displayed;  no 
feature  selection  is  allowed  in  automatic  mode. 

Normal 

Normal  operation  allows  the  user  to  select  and  delete  features. 
When  the  user  shifts  from  automatic  or  special  mode  to  normal 
mode,  the  features  that  are  currently  displayed  become  the  selected 
features.  By  using  the  menu  to  display  or  delete  features,  the 
user  can  change  this  list  of  selected  features  to  adapt  the  display 
to  his  task.  As  in  automatic  mode,  the  amount  of  detail  shown  for 
a particular  feature  is  a function  only  of  the  extent  of  the 
displayed  map.  Once  a feature  is  selected  for  display,  it  will 
not  disappear  from  the  screen  until  the  mode  is  changed;  it  is 
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deleted  by  a menu  request  or  the  extent  thresholds  for  that  feature 
are  exceeded.  In  the  latter  case,  the  feature  will  be  redisplayed 
as  soon  as  the  extent  is  again  within  the  maximum  and  minimum 
thresholds  for  the  feature. 

Special 

Special  mode  is  similar  to  normal  mode  in  all  but  one  respect. 

It  locks  the  displayed  features  at.  their  current  levels  of  detail. 

No  matter  how  much  zooming  is  done,  the  amount  of  data  displayed 
remains  constant.  If  a feature  is  selected  via  the  menu  in  special 
mode,  the  feature  is  displayed  with  detail  appropriate  to  the  current 
extent.  However,  as  long  as  the  system  remains  in  special  mode, 
no  amount  of  zooming  will  alter  the  amount  of  detail  displayed. 

If  the  user  shifts  from  special  to  either  automatic  or 
normal,  detail  levels  of  the  currently  displayed  features  are 
adjusted  on  the  next  zoom  or  translate  request.  In  the  case  of 
a shift  to  automatic  or  normal  modes,  entire  data  bases  may  be 
deleted  if  the  extent  after  the  zoom  is  not  within  the  predetermined 
thresholds  for  that  feature. 

SYSTEM  USE 

Fine,  the  user  can  control  the  system  and  look  all  around  a 
map  at  various  scales.  How  is  the  map  useful  to  him? 

The  answer  to  this  question  is  that  the  GDD  is  not  the  only 
process  running  on  the  computer  as  the  operator  zooms  and  translates. 
When  the  user  requests  a zoom  or  a translate,  the  GDD  responds  by 
relocating  or  scaling  the  map,  but  the  GDD  is  not  the  only  process 
to  receive  these  function  requests.  Processes  controlling  fore- 
ground displays  of,  for  example,  radar  or  intelligence  data,  also 
translate  or  scale  the  displayed  foreground  data  under  their  control. 

These  processes,  running  independently  of  the  GDD  and  requiring 
only  the  center  point  and  scale  of  the  displayed  area,  are  now 
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being  developed  under  Project  7090.  This  task  of  7090  is  investi- 
gating methods  of  summarizing  and  displaying  the  large  volume  of 

3 

operational  and  intelligence  data  available  to  a C operator. 

The  map  provides  a background  on  which  large  quantities  of  data 
can  be  summarized  and  rapidly  assimilated  by  a viewer.  The 
location  of  the  data  summarized  on  the  map  is,  of  course,  controlled 
by  the  center  point  chosen  by  the  operator.  The  degree  of  summar- 
ization will  be  a function  of  extent.  As  the  operator  zooms  in 
on  an  area,  the  foreground  displays  will  provide  more  specific 
information. 
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SECTION  III 


GEOGRAPHIC  DATA  DISPLAY  DESIGN 


INTRODUCTION 

This  section  is  intended  to  be  a brief  overview  of  the 
Geographic  Data  Display  System  design.  The  first  subsection 
describes  the  initial  geographic  data  base  and  how  it  was  prepared 
for  use  by  the  GDD.  With  the  data  base  as  a given,  the  needed 
user  functions  are  specified  in  the  next  subsection.  The  following 
two  subsections  discuss  how  the  data  base  must  be  structured  and 
managed  to  implement  the  user  functions. 


DATA  BASE  PREPARATION 

The  original  data  base  used  for  this  project  was  World  Data 
Bank  I obtained  through  the  National  Technical  Information  Service. 

The  data  base  contains  approximately  80,000  latitude/longitude 
points  in  both  degrees  and  radians,  outlining  the  coastline  and 
political  boundaries  of  the  world.  For  data  management  purposes 
the  data  base  is  divided  into  entities  called  chains.  A chain 
is  defined  as  a set  of  points  which,  when  connected  in  order, 
form  part  of  a geographic  boundary.  The  chains  vary  in  size 
from  one  point  for  small  islands  to  several  hundred  for  an 
intricate  portion  of  coastline,  such  as  the  Norwegian  fiords. 

The  chain  format  is  the  standard  format  for  all  geographic 
features  in  the  GDD  feature  library  which  have  linear  characteristics. 
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The  data  massaging  process  described  below  was  applied  to  all 
data  bases  used  by  the  GDD,  but  the  coastlines  and  boundaries  of 
World  Data  Bank  I are  used  as  an  example. 

Only  a short  outline  of  the  massaging  given  to  World  Data 
Bank  I and  the  other  data  bases  will  be  presented.  ESD-TR-76-360 , 
“Geographic  Data  Base  Development/*  discusses  the  entire  data  base 
preparation  problem  and  documents  the  programs  needed  for  this 
process . 

First,  to  obtain  a data  base  of  more  manageable  size,  a subset 
of  World  Data  Bank  I was  made  consisting  of  those  points  falling 
within  the  region  bounded  by  the  points  (63  N,033  W) , (68  N,039  E) , 
(30  N,012  W) , (32  N,021  E) . This  is  (roughly)  Europe  from  Iceland 
to  Moscow,  Algeria  to  North  Cape,  Norway.  All  discussions  that 
follow  deal  only  with  this  European  subset  consisting  of  approx- 
imately 8200  points. 

These  latitude/longitude  points  of  Europe  were  projected 
into  an  X,Y  plane  to  form  a map.  The  projection  used  was  a Secant 
Conic  with  two  standard  parallels  to  minimize  distortion.  Scale 
error  is  0%  along  the  standard  parallels  (57  N and  41  N)  and  a 
maximum  of  1%  on  the  extremes  of  the  map. 

Once  the  subset  was  established  and  projected,  the  individual 
points  were  ranked  according  to  their  importance  to  map  detail. 

This  was  necessary  since  displaying  all  8200  points  simultaneously 
results  in  wide  fuzzy  boundary  lines  on  the  display  screen.  At 
a scale  which  enables  the  entire  region  of  the  map  to  be  seen, 
many  points  in  the  data  base  are  too  close  to  be  resolved  by 
the  display  into  distinguishable  points  causing  fuzziness.  A 
program  was  written  using  an  algorithm  developed  by  the  Harvard 
Laboratory  for  Geographic  Display  and  Spatial  Analysis  which  ranks 
the  points  according  to  their  importance  relative  to  a visible 
feature.  Very  simply,  the  trend  line  length  between  the  endpoints 
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of  a chain  in  the  data  base  is  calculated.  The  distance  of  each 
point  in  the  chain  from  the  trend  line  is  calculated  and  compared 
to  a set  of  tolerances.  Those  points  within  a small  tolerance 
of  the  trend  line  itself  are  considered  least  important  since 
they  describe  a very  small  feature  and  are  assigned  to  a low 
rank  or  detail  level.  The  points  falling  farthest  away  from 
the  trend  line  are  considered  the  most  important  as  they  describe 
a gross  geographic  feature  and  are  assigned  to  a high  detail  level. 
Figure  6 shows  the  process  graphically.  ESD-^TR-^yb-SbO  describes 
the  algorithm  in  detail. 

A ranking  of  points  into  these  detail  levels  provides  the 
capability  of  displaying  maps  while  controlling  the  detail  and 
the  resolution  by  varying  the  detail  level  of  the  points  displayed. 
The  detail  level  chosen  controls  the  number  of  points  displayed. 

For  displaying  large  areas  only  important  points  are  used;  if  a small 
area  is  displayed  points  of  a lesser  rank  are  also  displayed.  Thus, 
as  the  scale  changes,  approximately  the  same  number  of  points  are 
always  displayed  on  the  screen,  but  the  points  represent  either 
more  detail  if  a small  area  is  being  viewed,  or  less  detail  and  more 
boundaries  if  a larger  area  is  being  viewed. 

REQUIRED  USER  FUNCTIONS 

The  map  display  system  had  to  have  four  functions  - location, 
translate,  zoom,  and  feature  selection.  Location  is  defining 
what  part  of  the  world  is  displayed.  At  the  present  this  is  an 
unimplemented  function;  the  map  is  located  in  central  Europe  and 
cannot  be  varied.  The  zoom  had  to  provide  adequate  detail  in  the 
geography  for  a wide  continuous  range  of  extent  values.  Further- 
more, all  three  functions  had  to  perform  quickly  to  be  useful  in 
a real-time  application.  For  the  moment  consider  only  zoom  and 

translation  of  a single  data  base;  speed  and  feature  selection  from 
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NOTE  : — 


DISTANCE  FROM  THE  TREND  LINE  DETERMINES  IMPORTANCE 
OF  A POINT  TO  DETAIL.  POINTS  2 AND  9 ARE  LEAST 
IMPORTANT  AS  THEY  DEVIATE  LEAST  FROM  THE  TREND  LINE. 
POINT  7 IS  THE  MOST  IMPORTANT  SINCE  IT  IS  FARTHEST 
AWAY  AND  THUS  DEFINES  A LARGER  FEATURE  THAN  THE 
OTHER  POINTS. 


Figure  6 DETAIL  RANKING  ALGORITHM 


the  feature  library  will  be  covered  in  a later  subsection  as  general 

izations  of  how  a single  data  base  works. 

Scaling  and  Levels  of  Detail 

Any  good  graphic  display  system  has  a scaling  function  enabling 
the  user  to  magnify  his  displayed  image.  Consider  the  effect  of 
this  standard  system  on  a map  covering  a large  area  and  therefore 
containing  only  important  points.  As  the  map  is  magnified  less 
area  is  seen,  but  boundaries  become  more  angular  and  accuracy  of 
representation  is  lost  as  the  distance  on  the  screen  between 
points  becomes  greater  and  greater:  curves  would  become  sharp 
angles.  Figure  7 shows  a portion  of  Scandanavia  after  several 
zooms  without  the  addition  of  detail.  To  maintain  a recognizable 
image  of  Scandanavia  a dynamic  system  would  have  to  obtain  more 
points  from  the  data  base  as  the  map  was  magnified.  Conversely 
it  would  have  to  delete  points  as  the  map  was  scaled  in  the  opposite 
direction. 

A compromise  between  the  standard  graphics  system  and  a truly 
dynamic  system  was  developed.  In  the  GDD  simple  magnification  is 
used  over  a specified  extent  range.  When  scaling  is  requested 
outside  the  range  specified,  the  displayed  map  is  replaced  by  a new 
map  containing  points  of  a higher  or  lower  detail  level,  whichever 
is  appropriate  to  the  zoom  direction.  This  new  map  is  then  scaled 
by  the  user  until  an  extent  threshold  is  crossed  causing  a new 
map  composed  of  a new  detail  level  to  be  displayed.  Such  a system 
provides  resolvable  detail  at  all  practical  magnifications  since 
a map  composed  of  points  of  a given  detail  level  is  only  displayed 
over  the  range  of  magnification  which  it  can  support  with  adequate 
resolution. 

Translating  and  Neighborhoods 

The  other  primary  design  consideration  was  a translate  function 
This  feature  enables  the  user  to  move  any  point  of  the  map  currently 
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Figure  7.  Loss  of  Context  Due  to  Lack  of  Detail 
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visible  to  the  center  of  the  display  screen.  This,  too,  is  a 
standard  graphics  tool,  but  the  map  posed  an  interesting  problem. 

If  a point  on  the  extreme  edge  of  the  screen  is  translated  to  the 
center,  half  of  the  screen  is  left  blank,  unless  points  that  are 
not  in  the  current  display  are  kept  in  memory,  ready  for  instant 
display  when  a translate  is  done.  This  was  impossible  because  of 
a memory  size  limitation.  The  entire  map  cannot  be  kept  in 
instant  readiness  without  using  a considerable  amount  of  memory. 
Again  a compromise  was  reached. 

Given  a center  point  of  the  map  and  an  extent  range,  a 
neighborhood  around  the  center  point  can  be  defined  larger  than 
the  maximum  allowed  extent  such  that  the  entire  neighborhood  will 
never  be  displayed  as  long  as  the  extent  range  is  not  exceeded. 

The  neighborhood  is  the  shaded  area  in  Figure  8a.  As  the  map  is 
translated  within  that  neighborhood,  undisplayed  points  in  memory 
are  displayed,  and  displayed  points  are  dropped  from  the  screen 
as  shown  in  part  b of  Figure  8.  When  a user  translates  too  close 
to  an  edge  of  a neighborhood,  data  no  longer  displayed  and  farthest 
from  the  displayed  map  is  erased  and  new  data  bordering  the  dis- 
played edge  is  brought  in  from  secondary  storage  redefining  the 
neighborhood  as  shown  in  Figure  8c.  This  system  allows  the  user 
to  have  an  instant  translate  without  the  inconvenience  of  a 
momentary  blank  screen. 

DATA  STRUCTURES 

With  the  design  considerations  outlined  above,  the  problem 
of  building  a geographic  display  system  to  give  the  needed  fast 
responses  reduced  to  a data  structure  and  data  management  problem. 
Detail  Levels  and  Blocks 

To  implement  the  zoom  function  three  complete  maps  of  different 
levels  of  detail  were  constructed.  The  first  map  contains  only 
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MAP  REGION 


q)  display  window  and  neighborhood 


b)  DISPLAY  WINDOW  AND  NEIGHBORHOOD  AFTER 
IMMEDIATE  RESPONSE  TO  TRANSLATE 


Figure  8 TRANSLATION  WITH  NEIGHBORHOODS 
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the  800  most  important  points  of  Europe  in  World  Data  Bank  I for 
use  with  the  largest  extent,  displaying  the  entire  European  map 
which  is  approximately  2200  miles  across.  The  800  point  figure  is 
a practical  restriction  imposed  by  the  memory  requirements  of  the 
graphics  system  used  (this  graphics  system,  PALLET,  is  described 
in  the  next  section) . The  second  and  third  maps  contain  2300 
and  the  entire  8200  points,  respectively.  It  is  neither  possible 
nor  desirable  to  display  the  entire  map  with  these  last  two 
large  data  bases.  Only  part  of  these  data  bases  can  be  resident 
in  core  at  any  one  time.  That  part  not  in  the  current  neighborhood 
must  reside  in  secondary  storage  until  the  viewing  window  is 
translated  near  to  the  edge  of  the  data  in  memory  at  which  time 
the  neighborhood  is  redefined. 

A structure  was  imposed  on  each  of  the  three  maps  to  enable  a 
neighborhood  around  a center  point  to  be  selected.  Each  map  was 
divided  into  square  blocks.  The  first  map  into  9 blocks,  the 
second  into  81  and  the  third  into  729.  A block  in  the  first  data 
base  was  divided  into  9 blocks  in  the  second  data  base,  and  a 
block  in  the  second  was  represented  by  another  9 in  the  third. 

Translation  with  Blocks 

With  such  a structure  it  is  only  necessary  to  keep  a maximum 
of  16  blocks  around  the  center  point  of  the  display  in  memory. 

As  the  center  point  is  translated,  the  required  16  blocks  change 
but  not  all  at  once.  The  extent  ranges  over  which  each  level  is 
displayed  prevent  the  user  from  seeing  more  than*  a three-block 
width  or  height  at  any  one  time.  Thus,  there  is  enough  undisplayed 
data  to  fill  most  of  the  screen  when  a translate  to  an  extreme 
boundary  is  done.  (If  magnification  is  such  th;^t  less  than  a three- 
block  width  is  visible,  there  will  always  be  enough  data  to  fill 
the  screen  when  a translate  is  requested.)  When  a neighborhood 
needs  to  be  redefined,  blocks  not  displayed  can  be  erased  and  new 
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blocks  read  in  from  secondary  storage.  Figure  9 shows  this  process. 
This  type  of  structure  allows  the  viewer  an  immediate  translate 
capability;  the  viewer  should  not  be  aware  that  a data  exception 

has  occurred  necessitating  references  to  secondary  storage. 

Zooming  with  Blocks 

The  zoom  capability  is  also  instantaneous,  with  one  exception. 
Whenever  a zoom  is  requested,  the  data  currently  displayed  is  mag-- 
nified  accordingly.  If  a scale  threshold  has  been  crossed  requiring 
a new  detail  level  an  entire  neighborhood  of  16  blocks  must  be  read 
from  secondary  storage.  So,  though  the  operator  sees  an  instan- 
taneous zoom,  there  is  a delay  before  he  sees  a new  level  of  detail. 
His  operation  is,  however,  not  interrupted  at  any  point. 

Figure  10  shows  the  zoom  function  implemented  with  blocks  and 
neighborhoods.  In  the  diagram  it  can  be  seen  that  a new  neighbor- 
hood is  defined  from  the  next  detail  level  when  a threshold  is 
crossed.  The  blocks  of  the  new  higher  detail  level  cover  a smaller 
geographic  area  than  the  previous  level  but  contain  at  least  as 
much  data. 

DATA  MANAGEMENT 

We  have  now  developed  a data  structure  that  provides  the 
capabilities  and  flexibility  we  need.  The  question  now  becomes 
how  to  manage  a data  base  with  such  a structure  to  provide  a user 
with  fast  response  when  a translate  or  zoom  is  requested.  Since 
it  is  impossible  to  give  an  instantaneous  response  when  a data 
exception  occurs  on  a translate  or  zoom,  the  user  is  given  an 
instantaneous  partial  response  by  simply  magnifying  or  translating 
the  data  available  in  the  neighborhood.  Any  new  data  is  displayed 
as  fast  as  it  can  be  retrieved  from  secondary  store.  The  data 
base  management  scheme  used  by  the  GDD  uses  an  indexing  system 
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Figure  9 TRANSLATION  WITH  BLOCKS  AND  NEIGHBORHOODS 
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Figure  10  ZOOMING  WITH  BLOCKS  AND  DETAIL  LEVELS 
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which  eliminates  searches  and  minimizes  the  number  of  accesses  to 
secondary  store  needed  to  perform  this  retrieval  process. 

Data  Organization 

To  form  the  blocks  with  which  neighborhoods  are  composed,  a 
grid  is  superimposed  over  the  map  area.  The  geographic  data  for 
one  detail  level  of  a feature  is  placed  into  the  block  of  the 
grid  surrounding  it.  This  blocking  process  is  described  in 
Appendix  I.  Once  divided  into  blocks,  the  data  is  stored  on 
secondary  store  in  column  order  (this  process  is  also  described 
in  Appendix  I).  This  is  shown  in  Figure  11  where  blocks  are 
stored  in  secondary  storage  contiguously  in  the  order  in  which 
they  are  labeled.  When  the  blocks  are  stored  in  this  way,  it  is 
possible  to  retrieve  a single  four-block  column  of  a 16-block 
neighborhood  with  one  storage  access  since  the  four  blocks  are 
stored  contiguously.  This  saves  considerable  time  since  it  is 
the  seek  time,  not  the  data  transfer  time,  that  causes  the  bottle- 
neck in  the  retrieval  process. 

Index  Organization 

An  index  entry  for  each  block  is  created  and  stored  in  row 
order  in  a file  on  the  storage  device.  An  index  is  diagrammed  in 
Figure  12,  where  the  index  entries  are  stored  contiguously  in 
the  order  shown.  Such  an  ordering  allows  the  index  entries  of  the 
four  blocks  which  head  the  four  columns  of  a neighborhood  to  be 
retrieved  with  a single  storage  access.  An  index  entry  contains 
two  pieces  of  data  - the  storage  address  of  the  block  and  the 
length  of  contiguous  data  that  must  be  read  starting  at  this 
address  to  retrieve  the  data  for  all  four  blocks  in  the  column 
of  the  neighborhood  headed  by  the  block. 

Retrieval  Process 

Figure  13  puts  the  entire  process  together.  Given  a center 
point  of  the  display,  the  intersection  of  the  grid  lines  nearest 
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Figure  II  BLOCKING  AND  ORDERING  A DETAIL  LEVEL 


IA.49,34S 


BLOCK  # 


ADDR  LENGTH 


I 

10 

19 


63 

72 

61 


Figure  12  ORDERING  AND  FORMAT  OF  AN  INDEX  FOR  A DETAIL  LEVEL 
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Figure  13  DATA  BASE  RETRIEVAL  PROCESS 


the  center  point  can  be  determined.  This  grid  point  then  determines 
the  upper  left  block  in  the  neighborhood.  This  block  number  is  used 
as  a pointer  to  the  index  to  retrieve  the  four  index  entries  for 
the  four  blocks  heading  the  columns  of  the  neighborhood.  Since 
they  are  stored  contiguously,  one  access  is  required.  Using  the 
length  in  the  index,  each  column  can  be  read  from  storage.  Four 
accesses  are  required  to  retrieve  the  data  for  an  entire  neighbor- 
hood. 

PARALLEL  DATA  BASES 

The  previous  discussion  of  data  management  explains  how  a 
single  detail  level  of  a single  feature  is  managed.  The  system 
does,  however,  have  multiple  features  selectable  by  the  user,  and 
each  feature  has  several  detail  levels.  These  multiple  features 
are  said  to  be  handled  in  parallel  with  one  another.  That  is, 
each  feature  in  the  feature  library  is  treated  as  if  it  were  the 
only  feature  data  base  available  to  the  system.  When  a function 
is  requested,  each  feature  in  the  library  is  processed  identically, 
one  after  the  other. 

The  example  in  Figure  14  shows  how  parallel  data  bases  are 
processed  and  how  the  correct  detail  level  of  each  parallel 
data  base  is  chosen.  In  Figure  14  three  feature  data  bases  are 
shown,  each  with  several  levels  of  detail.  For  each  detail  level, 
a range  of  extent  over  which  that  detail  level  provides  adequate 
resolution  is  defined.  (The  ranges  for  detail  levels  of  a feature 
overlap  to  prevent  thrashing  back  and  forth  if  a user  zooms  in 
and  out  around  a threshold.)  The  vertical  line  in  the  figure 
shows  the  current  extent  of  the  display.  The  detail  level  of  the 
features  with  which  this  line  intersects  is  the  one  that  should 
be  displayed  at  this  extent.  It  should  be  noted  that  there  is  no 
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Figure  14  PARALLEL  DATA  BASE  SELECTION 


relationship  between  detail  levels  of  different  features.  The 
fact  that  detail  level  1 of  one  feature  is  displayed  does  not 
mean  that  another  feature  must  be  displayed  at  level  1,  or,  for 
that  matter,  displayed  at  all.  Finally,  before  being  displayed, 
a "user  interest  vector,”  shown  along  the  top  of  the  figure,  is 
checked  to  see  if  the  features  allowed  at  this  extent  are  wanted 
by  the  user.  For  those  that  are  selected  by  the  user,  the  file 
numbers  of  the  data  file  and  index  file  and  the  number  of  blocks 
into  which  the  detail  level  has  been  divided  are  passed  to  the 
data  management  system.  Thus,  the  data  management  system  treats 
all  detail  levels  and  features  the  same;  it  simply  retrieves  the 
index  entries  and  actual  data  from  different  files. 
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SECTION  IV 


IMPLEMENTATION  TOOLS 


INTRODUCTION 

The  GDD  was  implemented  using  7090 ’s  existing  distributed 
processing  computer  system.  To  support  this  system  several  large 
software  packages  were  written;  a message  processor  to  support 
the  distributed  processing,  a graphics  display  system,  and  a file 
management  system.  These  programs  were  used  to  implement  the  GDD. 

Below,  the  system  architecture  is  presented  followed  by  a 
brief  summary  of  each  of  these  software  packages. 

SYSTEM  ARCHITECTURE 

The  7090  computer  facility  is  a two-computer  distributed 
processing  system.  Figure  15  is  a schematic  of  the  system.  The 
Interdata  70  (1-70)  is  the  display  processor  driving  a RAMTEK 
digital  color  television  interface.  It  has  64K  of  memory  and 
shares  a bOO-line-'a-minute  Data  Products  printer  and  a 200-card- 
per-minute  card  reader  with  the  Interdata  4 (1-4) . The  1-4  with 
its  64K  of  core  is  the  applications  machine  connected  to  a Vermont 
drum  with  a four-megabyte  capacity.  The  two  machines  communicate 
with  each  other  via  a Bell  201  communications  interface  running  at 
25K  baud.  Both  machines  run  the  Interdata  BOSS  4B  operating 
system  and  can  operate  totally  independent  of  one  another.  The 
actual  display  devices  attached  to  the  RAMTEK  are  a Conrac  TV 
monitor  and  a large  screen,  ADVENT,  projection  TV.  A trackball 
and  function  key  pad  are  also  connected  to  the  RAMTEK. 

Design  Philosophy 

The  design  philosophy  of  this  architecture  is  stmunarized 
here.  A large  Command,  Control  and  Communication  system  has  many 
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Figure  15  SCHEMATIC  OF  7090  COMPUTER  FACILITY 


processes  running  concurrently  with  a need  to  communicate  with 
each  other.  Since  a process  often  needs  to  send  a message  simul- 
taneously to  more  than  one  process,  some  of  which  are  unknown 
to  it,  it  makes  sense  to  have  a broadcast  system  that  is  receiver 
oriented.  That  is,  a message  is  sent  by  putting  it  on  a com- 
munications bus  where  it  can  be  examined  by  each  process  running 
on  the  system.  The  process  can  either  use  the  message  or  ignore  it. 
The  receiver  decides  what  messages  it  wants,  not  the  sender. 

Such  a system  cuts  down  on  message  traffic  and  relieves  the 
application  programmer  of  communications  overhead. 

In  our  system,  the  1-70  is  a display  processor  running  an 
operator  display  station.  The  1-4  is  an  application  machine  which 
handles  the  geography  for  the  system.  The  data  link  substitutes 
for  a bus,  though  the  bus-receiver-oriented  approach  is  simulated 
by  the  Message  Processor,  one  of  the  software  packages  mentioned 
above. 

MESSAGE  PROCESSOR 

The  Message  Processor  program,  MP,  simulates  the  bus  com- 
munication system  discussed  above.  A copy  of  MP  resides  on  each 
machine  and  acts  as  the  system  interface  to  the  201  communication 
device. 

When  an  application  program  which  will  use  MP  is  designed, 
the  programmer  must  decide  what  information  will  be  broadcast 
throughout  the  system  by  MP.  This  information  is  usually  of 
global  importance  in  nature,  such  as  the  center  point  and  extent 
of  the  displayed  map  in  the  GDD.  Once  this  is  decided,  a format 
for  the  messages  containing  information  is  formed  and  a type 
assigned  to  each  message.  The  programmer  can  then  write  the 
different  routines  of  the  system,  knowing  that  no  matter  how  many 
routines  want  to  receive  a message,  he  only  has  to  specify  the 
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type  and  send  the  message  once.  If  a routine  wants  to  receive  a 
message  of  a certain  type,  the  programmer  must  only  make  an  entry 
in  an  MP  table  to  that  effect. 

At  initialization,  the  tables  are  constructed  in  MP  identifying 
which  programs  want  to  receive  what  message  types  and  on  which 
machine  each  receiving  program  is  resident.  When  a message  is 
sent,  the  user  calls  MP  with  two  arguments  - the  message  and  the 
message  type.  These  two  arguments  are  first  sent  to  the  MP  on 
the  other  machine.  The  two  MP's  then  check  the  message  type  against 
their  internal  tables.  When  a match  is  found  in  the  table,  MP 
invokes  the  program  associated  with  that  matched  type.  Each 
program  is  allowed  to  run  to  completion,  at  which  time  the  next 
program  in  the  table  which  wants  to  receive  that  message  type 
is  invoked.  Each  program  thus  appears  to  be  continually  examining 
a bus  containing  the  message  stream  and  picking  off  only  the  ones 
necessary  for  its  operation. 

It  should  be  noted  here  that  this  implementation  permits 
true  distributed  processing.  There  is  no  one  large  machine  in 
control  with  several  satellites;  control  is  distributed  between 
both  machines , each  doing  its  separate  task  independent  of  the 
other.  It  also  should  be  noted  that  each  machine  is  not  dedicated 
to  a single  task;  several  processes  are  resident  on  each  machine. 

The  execution  of  these  processes  is  controlled  by  MP  as  a function 
of  the  messages  received  and  which  process  or  processes  want  to 
receive  that  message.  If  several  processes  running  on  one  machine 
degrade  performance,  the  situation  can  be  improved  by  adding 
another  processor  onto  the  bus.  The  theory  of  the  bus  operation 
puts  no  limit  on  the  number  of  machines  running  in  the  network. 

GRAPHICS  PACKAGE 

PALLET  is  a sophisticated  graphics  display  program  which 
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provides  the  user  interface  to  the  RAMTEK  digital  TV  driver. 

Through  a series  of  subroutine  calls  the  user  can  define  images  of 
points,  lines,  arcs,  blocks  of  color  and  characters.  Once  defined, 
these  images  can  be  stored  on  drum  or  displayed  on  the  RAMTEK. 

Any  image  stored  on  drum  can  be  used  along  with  points,  lines,  arcs, 
blocks  and  characters  to  form  another  image,  which  also  may  be 
displayed  or  stored.  With  the  ability  to  refer  to  images  or 
■parts  of  images  by  name,  change  color,  erase  images  and  control 
cursor  position  and  a function  key  pad,  PALLET  becomes  a very 
versatile  interface  to  the  RAMTEK. 

Instancing 

PALLET  is  designed  around  the  graphics  concept  of  instancing. 

A graphics  instance  is  a geometric  form  that  can  be  used  repeatedly, 
either  in  a single  image  or  in  many  images.  A common  image  is 
formed  with  lines,  points,  arcs,  blocks  and  characters  given  a 
name  and  stored  in  secondary  store.  This  image  can  now  be  an 
instance  and  used  several  times  to  form  another  image  by  recalling 
it  by  name.  For  example,  the  instance  could  be  a representation 
of  a window.  In  the  construction  of  an  image  of  a house,  the 
instance  of  the  window  would  be  used  several  times,  the  only 
difference  being  the  position  of  the  window  in  the  image  of  the 
house  each  time  the  instance  was  used. 

Coordinate  Sys  terns 

Position  of  the  window  in  the  house  opens  the  Pandora’s  box 
of  coordinate  systems  within  PALLET.  When  an  image  is  initially 
defined  with  an  OPEN  command,  the  coordinates  of  the  lower  left 
and  upper  right  corners  of  the  space  for  the  image  are  given. 

This  establishes  the  coordinate  system  of  the  display  space  for 
that  image.  When  one  of  the  primitive  forms,  lines,  points, 
blocks  or  characters  is  placed  in  an  image,  it  is  positioned  in 
the  image  according  to  the  coordinate  system  with  which  the  image 
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was  opened.  If  any  of  the  X,  Y coordinates  of  the  points  of  the 
primitive  form  fall  outside  the  display  space,  the  forms  are 
clipped  off  at  the  boundary.  Now,  when  one  includes  an  instance, 
that  is,  a previously  defined  image,  into  another  image,  one 
specifies  where  in  the  coordinate  system  of  the  new  image  the 
lower  left  and  upper  right  comer  of  the  display  space  of  the 
instance  should  be  placed.  This  nesting  of  the  coordinate  systems 
is  shown  in  Figure  16. 

Use  by  GDP 

As  an  example  of  how  PALLET  coordinate  systems  work,  let’s 
look  at  how  the  GDD  uses  PALLET.  PALLET  is  used  by  the  GDD  to 
display  both  the  menu  and  the  map.  The  menu  is  a straightforward 
application,  declaring  a display  space  and  positioning  characters 
within  it.  When  the  select  function  button  is  pressed,  the 
cursor  position  is  read.  Since  the  position  of  items  in  the  menu 
is  known  from  when  the  image  was  constructed,  the  cursor  position 
determines  which  feature  and  function  have  been  selected.  The 
map,  on  the  other  hand,  is  a bit  more  complex  and  more  useful 
for  tutorial  purposes. 

An  image  called  "world"  is  opened  from  the  lower  left  (0,0) 
to  the  upper  right  (511,479).  (This  coordinate  system  was  chosen 
because  the  RAMTEK  raster  is  479  lines  by  511  dots.)  Into  this 
image  is  included  an  image  called  "map."  The  display  space  of 
"map"  is  defined  to  be  the  corners  of  our  European  map  given  in 
the  coordinate  system  of  the  projected  map.  The  coordinates  are 
given  such  that  the  corners  of  "map"  fall  within  the  "world" 
display  space  to  give  the  proper  initial  center  point  and  extent. 
If  any  of  our  map  data  which  is  in  projected  coordinates  is  now 
displayed  in  the  "map"  display  space,  it  will  appear  in  the 
correct  position  relative  to  any  other  piece  of  map  data  since  the 
coordinate  systems  of  the  projected  map  and  the  display  space  of 
"map"  are  identical. 
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Figure  16  INCLUSION  OF  ONE  IMAGE  INTO  ANOTHER 
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Implementation 


PALLET  has  been  implemented  using  both  machines,  a fact 
dictated  by  the  system  configuration*  The  part  of  PALLET  con- 
trolling the  display,  interfacing  directly  with  the  RAMTEK,  is 
resident  on  the  1-70.  Because  of  the  use  of  secondary  store  for 
graphics  instancing,  that  part  of  PALLET  which  constructs  images 
is  resident  on  the  1-4.  The  two  parts  communicate  via  MP.  Once 
an  image  is  constructed  and  designated  for  display,  it  is  sent 
out  on  the  bus  and  received  by  the  1-70  portion  of  PALLET,  where 
it  is  processed  and  turned  into  a display  list  with  the  appropriate 
translation  and  extent  applied  to  it. 

FILE  MANAGEMENT  PACKAGE 

The  File  Management  Package  (FMP)  handles  the  storage  and 
retrieval  of  data  for  PALLET.  Through  a system  of  subroutine 
calls  to  FMP,  PALLET  can  store  data  in  secondary  store  in  a 
hierarchical  file  structure. 

Except  for  opening  the  physical  file  used  by  FMP  and  initial- 
izing FMP  when  the  GDD  is  executed,  FMP  is  transparent  to  the 
GDD.  No  further  description  is  necessary. 
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SECTION  V 


IMPLEMENTATION  DESIGN  OF  THE  GDD 


INTRODUCTION 

The  Geographic  Data  Display  program  was  designed  as  six 
separate  modules  written  mostly  in  FORTRAN:  Menu,  Function  Request 
Handler,  Data  Exception  Handler,  Data  Base  Management,  Mode  Change 
and  Initialization.  The  Menu  module  allows  the  user  to  select 
and  delete  features  with  a menu.  The  Function  Handler  processes 
zoom  and  translate  requests  at  the  top  level  and  passes  the  new 
center  point  and  scale  to  the  Data  Exception  module.  This  module 
then  determines  what,  if  any,  detail  levels  and  neighborhoods 
need  changing.  The  Data  Base  Management  module,  written  mostly 
in  assembler,  retrieves  the  new  neighborhoods  designated  by  the 
Data  Exception  module  or  the  Menu  module  and  passes  the  data  to 
PALLET.  The  Mode  module  handles  the  mode  change  functions  and 
Initialization  sets  the  system  for  operation. 

This  section  is  designed  to  serve  as  top  level  program 
documentation.  First,  the  communication  between  modules  will  be 
defined,  and  then  the  function  and  implementation  of  each  module 
will  be  discussed  separately.  Individual  subroutines  are  documented 
in  Appendices  V and  VI. 

MODULE  COMMUNICATION 

The  six  modules  of  the  GDD  communicate  via  common  variables 
and  MP.  Within  GDD,  MP  is  used  only  between  the  Function  Request 
Handler  and  the  Data  Exception  Handler.  This  is  necessary  since 
the  Function  Request  Handler  has  been  implemented  on  the  1-70  to 
enable  faster  response  to  the  user.  The  other  five  modules  all 
reside  on  the  1-4  and  only  communicate  with  each  other  through  the 
labeled  common  COMMUN.  Figure  17  shows  the  interconnection  of 
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the  six  GDD  modules. 

When  a zoom  or  translate  request  is  made  the  Function  Request 
Handler  broadcasts,  via  MP,  the  new  center  point  and/or  extent. 

The  Data  Exception  module  receives  this  message,  stores  the  in- 
formation in  the  CURSTA  labeled  common  (all  commons  are  documented 
in  Appendix  IV) , and  determines  what  new  data  need  to  be  added 
and  what  data  need  to  be  deleted.  These  decisions  are  recorded 
in  the  SELECT  and  DELETE  arrays  of  the  COMMUN  common.  Each 
geographic  feature  available  to  the  system  has  an  entry  in  these 
two  arrays.  If  a data  base  needs  to  be  displayed  or  a detail 
level  needs  to  be  changed,  the  proper  entry  in  the  SELECT  array 
is  set  equal  to  the  detail  level  at  which  it  should  be  displayed. 

If  a currently  displayed  feature  needs  to  be  deleted  the  appropriate 
entry  in  the  DELETE  array  is  set  non-zero.  The  relationship 
between  entries  in  the  arrays  and  feature  data  bases  is  discussed 
in  Appendix  IV. 

The  Menu  module  works  in  a similar  manner.  When  the  operator 
selects  or  deletes  a feature,  the  proper  entries  in  SELECT  and 
DELETE  are  changed. 

After  either  the  Data  Exception  module  or  the  Menu  module 
have  set  COMMUN,  the  Data  Base  Management  (DBM)  module  is  activated 
by  a subroutine  call  to  MDISP.  The  DBM  module  then  sends  erase 
commands  to  PALLET  for  those  features  whose  DELETE  entry  is  non- 
zero and  retrieves  data  from  secondary  store  for  those  features 
whose  SELECT  entry  is  non-zero. 

MENU  MODULE 

The  Menu  module  processes  all  selection  and  deletion  requests 
made  via  the  menu.  To  do  this,  it  makes  heavy  use  of  PALLET  for 
displaying  the  menu  and  for  responding  to  and  receiving  the  user 
requests.  Table  I contains  a list  of  the  subroutines  in  the  Menu 
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Table  I 


Module  Subroutines 


FUNCTION  DATA  DATA  BASE 


MENU 

REQUEST  HANDLER 

EXCEPTION 

MANAGEMENT 

MODE 

INIT 

CHARLV 

CRTOMP 

AUTOFZ 

ALLOC, DEALOC 

ATOFFS 

IMPTAB 

CLEVEL* 

ERMSG 

AUTONZ 

CLMERS 

AUTONS 

INIT 

CURPOS 

NEWCEN 

CLEVEL* 

ERMSG 

STATCS 

REDCOM 

DBPOS 

SETMSG 

CURSTA 

GRDCEN* 

STATIN* 

MENUUP 

STATIN* 

GRDCEN* 

INMVE 

MESLCT 

TRANTP 

MTRANS 

MDISP 

NAME* 

ZMINTP 

ZMTRNS 

MS  END 

RESPON 

ZMOUTP 

NAME* 

SETSTA 

ZOMTOP 

REDSND 

WRTCHR 

RETREV 

RINDEX 

RPCOL 

SETBF 

SETINX 

SETITM 

TOPLFT 

* Subroutines  shared  by  one  or  more  modules. 
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module.  MENUUP  and  MESLCT  are  two  main  line  routines  called 
when  the  proper  function  buttons  are  pressed. 

The  following  discussion  is  in  two  parts.  Under  MENUUP  the 
generation  and  display  of  the  menu  is  discussed,  followed  by  a 
description  of  the  entry  of  the  completed  menu.  Under  MESLCT 
selection  and  deletion  of  a specific  menu  entry  are  discussed. 
MENUUP 

When  the  menu  button  on  the  function  pad  is  pressed,  the 
MENUUP  subroutine  is  called  to  display  the  menu  for  use  by  the 
operator  (refer  to  Figure  18) . MENUUP  first  displays  the  basic 
menu  stored  in  the  PALLET  file  when  the  system  is  initialized 
(see  Appendix  II).  It  then  creates  an  image  called  STATUS. 

MENUUP  adds  to  the  STATUS  image  the  detail  level  of  each  of  the 
features  in  the  menu  currently  being  displayed.  A message  stating 
the  mode  of  the  system  is  also  included  in  STATUS  before  it  is 
displayed  using  PALLET.  If  the  mode  is  normal  or  special  the 
variable  MENU  is  set  to  allow  the  user  to  select  and  delete 
features,  and  MENUUP  returns.  If  the  mode  is  automatic,  MENUUP 
simply  returns  since  no  feature  selection  is  allowed  in  automatic 
mode. 

After  the  menu  is  brought  up  and  the  variable  MENU  is  set 
to  allow  selection,  the  next  time  MENUUP  is  called  by  a function 
button  request,  the  short  procedure  which  enters  the  user's  menu 
selection  is  executed.  Here,  the  menu  is  cleared  from  the  display, 
and  the  Data  Base  Management  module  is  called  via  a call  to  MDISP. 
MDISP  will  examine  the  COMMUN  common  as  set  by  the  MESLCT  routine 
of  the  Menu  module  to  determine  what  features  need  to  be  displayed 
and  deleted. 

MESLCT 

MESLCT  is  the  routine  invoked  by  pushing  the  select  function 
button;  it  is  flowcharted  in  Figure  19.  This  routine  records 
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Figure  18  FLOWCHART  OF  MENUUP  OF  MENU  MODULE 
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Figure  19  FLOWCHART  OF  MESLCT  OF  MENU  MODULE 
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the  features  selected  and  deleted  by  the  user  in  the  COMMUN 
common  and  writes  responses  to  the  display  screen  each  time  the 
select  function  button  is  pressed.  If  the  variable  MENU  is  not 
set  by  MENUUP  to  allow  user  selection  and  deletion,  MESLCT  simply 
returns,  resulting  in  a no-op. 

On  entry,  MESLCT  first  determines  which  function  the  user 
has  positioned  the  cursor  beneath  and  also  opposite  which  feature 
of  the  menu.  An  error  message  is  displayed  if  the  cursor  is  not 
aligned  with  either  function  or  any  of  the  features.  If  there 
is  no  error,  the  program  is  set  up  to  process  the  macro  expansion 
of  the  feature  selected.  This  is  done  by  setting  up  a loop 
which  will  be  executed  once  for  each  feature  in  the  expansion. 

The  result  is  that  each  feature  in  the  expansion  appears  as  if 
it  was  selected  separately. 

If  a feature  was  selected  for  display,  several  abnormal 
conditions  are  tested  for  - the  feature  has  already  been  selected, 
it  is  currently  displayed,  or  it  has  also  been  selected  for 
deletion.  In  any  of  the  three  cases,  a response  is  displayed. 

In  the  latter  case,  the  entry  in  the  DELETE  array  of  the  COMMUN 
common  is  turned  off,  resulting  in  a no-op  for  that  feature.  If 
none  of  these  conditions  exist,  the  subroutine  CLEVEL  determines 
at  which  detail  level  the  feature  should  be  displayed.  The 
proper  entry  in  the  SELECT  array  of  the  COMMUN  common  is  set 
equal  to  this  detail  level,  a response  is  made  to  the  user,  and 
the  detail  level  displayed  in  the  menu. 

The  delete  function  works  in  an  analogous  fashion.  A test 
is  done  to  see  if  the  feature  is  not  currently  displayed  or  if 
it  has  previously  been  selected  for  display.  In  either  case  an 
error  message  is  displayed.  In  the  last  case  SELECT  is  set  to 
zero  so  that  the  feature  will  not  be  displayed.  If  no  errors 
exist  the  DELETE  entry  for  the  feature  being  processed  is  set 
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non-zero.  An  **X"  opposite  the  feature  is  displayed  in  the  menu 
and  a response  message  given  to  the  user. 

FUNCTION  REQUEST  HANDLER 

The  Function  Request  Handler  is  invoked  by  pressing  either 
the  translate  or  zoom  buttons.  Its  purpose  is  to  perform  an 
immediate  zoom  or  translate  on  the  data  available,  calculate  a 
new  center  point  and  extent,  and  broadcast  these  parameters  to 
the  other  processes  in  the  system.  To  provide  as  fast  a response 
to  a user  request  as  possible,  the  module  is  resident  on  the 
1-70,  along  with  the  PALLET  routines  that  do  translate  and  zoom. 

Table  I contains  a list  of  the  subroutines  in  the  Function 
Request  Module;  a flowchart  of  the  module  is  shown  in  Figure  20. 
ZOMTOP  and  TRANTP  are  the  two  mainline  routines,  the  others  are 
utilities  used  by  one  or  both  of  the  functions.  The  following 
discussion  will  be  divided  into  two  sections  - one  on  zoom  and 
one  on  translate. 

Zoom 

ZOMTOP  is  the  mainline  routine  for  both  zoom  in  and  zoom  out 
requests.  The  direction  of  the  zoom  is  determined  by  the  magnitude 
of  FAC,  a calling  parameter  to  ZOMTOP.  When  the  zoom  in  button 
is  pushed,  the  ZMINTP  routine  is  invoked.  This  routine  simply 
calls  ZOMTOP  with  an  appropriate  value  for  FAC.  For  a zoom  out, 
ZMOUTP  is  invoked,  and  ZOMTOP  is  called  with  a value  for  FAC  that 
is  the  inverse  of  the  value  used  for  a zoom  in.  Thus,  though 
ZOMTOP  is  the  mainline  routine,  it  is  not  directly  invoked  by  the 
push  of  a function  button. 

Initially,  ZOMTOP  sets  up  the  new  center  point  and  extent, 
message  to  be  broadcast  to  the  other  processes  in  the  system. 

This  involves  converting  the  absolute  cursor  position  to  map 
coordinates,  calculating  the  new  center  point  and  extent,  and 
storing  these  values  in  the  CURSTA  array. 
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Figure  20  FLOWCHART  OF  FUNCTION  REQUEST  HANDLER 
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Once  the  message  is  set,  the  PALLET  routine  SCALE  is  called 
to  perform  an  immediate  zoom  on  the  neighborhood  of  data  available. 
The  message  is  then  sent  via  MP  directly  to  the  CURSTA  routine  of 
the  Data  Exception  module  and  to  any  other  process  that  wants 
to  receive  it. 

Translate 

TRANTP  is  invoked  directly  by  a function  key  to  handle  a 
translate  request.  It,  like  ZOMTOP,  sets  the  broadcast  message 
first.  It  then  calculates  the  distance  the  current  display  must 
be  translated  in  the  x and  y directions.  The  PALLET  routine  TRANS 
is  called  to  do  this  immediate  translation.  The  new  center  point 
of  the  map  is  established  as  the  cursor  position,  and  the  center 
point  and  extent  message  are  broadcast.  Again  as  in  zoom,  it  is 
sent  directly  to  the  CURSTA  routine  of  the  Data  Exception  module. 

DATA  EXCEPTION  MODULE 

• 

The  Data  Exception  module  determines  which  features  currently 
displayed  need  a new  neighborhood  of  data  or  a new  detail  level. 

It  is  entered  only  through  the  reception  of  a center  point  and 
extent  message  by  the  CURSTA  routine,  which  in  turn  calls  the 
mainline  routine  of  the  module,  ZMTRNS.  ZMTRNS  examines  all  data 
bases  for  the  possibility  of  a detail  level  change  or  a new  neigh- 
borhood. The  algorithms  for  detail  level  change  are  different 
for  each  of  the  three  operating  modes;  automatic,  normal  and 
special.  The  following  discussion  begins  with  a brief  explanation 
of  the  entry  into  the  module  and  is  followed  by  descriptions  of 
the  different  zoom  algorithms.  It  concludes  with  the  translation 
algorithm.  Table  I contains  a list  of  the  subroutines  included  in 
this  module;  Figure  21  is  a flowchart  of  the  module. 
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Figure  21  FLOWCHART  OF  DATA  EXCEPTION  MODULE 
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Module  Entry 

When  a zoom  or  translate  request  is  made  the  Function  Request 
Handler  broadcasts  a message  containing  the  new  center  point  and 
extent  and  the  previous  center  point  and  extent.  The  CURSTA 
routine  of  the  Data  Exception  module  receives  this  message  and 
stores  this  global  data  in  the  CURSTA  common  for  use  by  any  routine. 
When  the  data  is  stored,  ZMTRNS  is  called  to  determine  new  detail 
levels  and  neighborhoods. 

Automatic  Mode  Zoom 

If  the  system  is  in  automatic  mode^  ZMTRNS  calls  AUTONZ  to 
determine  what  features  should  be  displayed  and  at  what  detail 
level.  The  AUTONZ  algorithm  is  extremely  simple.  For  each  data 
base  available  to  the  system  a call  is  made  to  the  CLEVEL  routine. 
This  routine,  using  the  predetermined  thresholds  for  the  detail 
levels  of  the  data  base  being  checked,  calculates  and  returns 
the  detail  level  at  which  the  feature  should  be  displayed.  If  the 
level  returned  is  equal  to  the  current  level  of  the  feature,  nothing 
is  done.  Otherwise,  the  correct  entry  in  SELECT  is  set  equal  to 
the  returned  level,  and  the  appropriate  entry  in  DELETE  is  set 
non-zero  to  force  an  erase  of  the  current  neighborhood  of  that 
feature.  The  procedure  is  repeated  for  each  feature.  Note  that 
the  question  of  whether  a feature  is  displayed  or  not  is  strictly 
a function  of  the  current  extent  and  the  predetermined  thresholds 
of  the  detail  levels  of  that  feature. 

Normal  Mode  Zoom 

If  the  system  is  in  normal  mode,  ZMTRNS  will  call  the  AUTOFZ 
routine.  This  routine  functions  in  a manner  analogous  to  AUTONZ 
with  one  addition.  In  AUTONZ  the  detail  level  of  each  data  base 
is  checked  on  every  zoom.  In  AUTOFZ,  only  those  data  bases  that 
have  been  selected  are  checked.  A feature  is  considered  selected 
if  the  location  in  the  AUTOFZ  array  associated  with  it  is  non-zero. 
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This  location  is  set  when  either  the  feature  is  selected  or  deleted 
by  the  operator  using  the  menu,  or  when  it  comes  within  or  falls 
out  of  its  display  range  in  automatic  mode. 

Special 

In  special  mode  no  detail  levels  are  changed.  Thus,  if  the 
system  is  in  special  mode,  ZMTRNS  ignores  detail  level  changes 
and  calls  the  translation  routine  immediately. 

Translation 

After  all  potential  detail  level  changes  have  been  examined 
by  ZMTRNS , MTRANS  is  called  to  determine  if  any  neighborhoods 
need  to  be  altered.  Those  features  that  had  a detail  level 
change  require  no  checking,  since  their  new  neighborhoods  will 
be  calculated  according  to  the  new  center  point.  In  the  case 
where  the  detail  level  of  a feature  was  not  changed,  or  where 
ZMTRNS  was  invoked  by  a pure  translate  request,  neighborhoods 
must  be  checked  for  horizontal  and  vertical  translation  components. 
Horizontal  translation  requires  the  change  of  one  or  two  columns; 
vertical  translation  requires  an  entirely  new  neighborhood. 

For  each  data  base,  MTRANS  uses  the  routine  GRDCEN  to  determine 
the  point  of  the  grid  used  to  divide  a data  base  into  blocks 
closest  to  the  center  point  of  the  displayed  map.  This  new  grid 
point  is  compared  to  the  grid  point  used  to  define  the  currently 
displayed  neighborhood.  If  any  change  exists  in  the  y coordinate, 
a vertical  change  has  occurred,  the  entire  neighborhood  must  be 
replaced  and  the  proper  entry  in  SELECT  is  set  to  the  current 
detail  level.  The  DELETE  entry  is  also  set  non-zero. 

If  there  is  only  a change  in  the  x coordinate  of  the  grid 
points,  the  RPCOL  routine  is  called  to  invoke  the  Data  Base 
Management  module.  This  is  a special  entry  into  this  module 
which  only  replaces  one  or  two  columns  of  a neighborhood  at  a time. 
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After  all  features  have  been  checked,  MTRANS  calls  the  Data  Base 
Management  module  via  MDISP  to  replace  all  neighborhoods  with  a 
vertical  translation  component  which  have  been  tagged  in  the  SELECT 
array  of  the  COMMUN  common  by  ZMTRNS. 

DATA  BASE  MANAGEMENT 

The  Data  Base  Management  module  is  responsible  for  retrieving 
data  from  secondary  storage  and  displaying  it,  and  erasing  already 
displayed  data  from  the  display  screen.  It  has  two  entry  points  - 
one  for  retrieving  an  entire  neighborhood,  and  one  for  replacing 
only  one  or  two  columns  of  a neighborhood.  These  two  entry  points 
are  MDISP  and  RPCOL,  respectively.  Both  use  the  support  routines 
listed  in  Table  I and  work  in  a very  similar  manner.  The  following 
discussion  is  in  two  parts  - MDISP  and  RPCOL. 

MDISP 

MDISP  is  the  Data  Base  Management  module  entry  point  which 
examines  the  COMMUN  common,  set  by  either  the  Menu  module  or  the 
Data  Exception  module,  to  determine  which  data  bases  to  delete 
from  the  display  and  which  to  retrieve  and  display.  It  first 
checks  for  any  necessary  erasures,  and  then  proceeds  to  calculate, 
retrieve  and  display  new  neighborhoods,  as  diagrammed  in  Figure  22. 

Each  entry  in  the  DELETE  array  of  the  COMMUN  common  is 
checked.  If  an  entry  is  non-zero  the  CLMERS  routine  is  called  to 
make  four  entries  in  the  erase  table,  one  for  each  column  of  the 
neighborhood.  After  all  data  bases  have  been  examined,  the  erase 
array  is  sent  to  PALLET  on  the  display  processor  and  the  delation 
process  is  completed. 

Now  each  entry  in  the  SELECT  array  of  the  COMMUN  common  is 
checked  for  a non-zero  value.  This  non-zero  value  is  the  detail 
level  at  which  the  data  base  is  to  be  displayed.  For  each 
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Figure  22  FLOWCHART  OF  MDISP  ENTRY  INTO  DATA  MANAGEMENT  MODULE 
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feature  selected,  the  center  point  of  the  neighborhood  is  cal- 
culated and  used  by  the  TOPLFT  routine  to  determine  the  top  left 
block  of  the  16  block  neighborhood.  This  section  is  used  by 
RINDEX  to  read  the  proper  index  entries  from  secondary  store. 

Once  the  index  is  read,  a core  buffer  is  allocated  large  enough 
to  hold  the  largest  column  of  data  as  indicated  by  the  index.  The 
REDSND  routine  then  uses  each  index  entry  to  locate  and  read  a 
column  of  data  from  secondary  store.  A PALLET  image  header  is 
added  to  a retrieved  column,  and  it  is  sent  to  PALLET  to  be  dis- 
played. This  retrieval  procedure  is  repeated  once  for  each  column 
in  the  data  base.  Once  a neighborhood  is  displayed,  the  next 
feature  selected  is  processed. 

RPCOL 

RPCOL  is  similar  to  MDISP  in  function  except  that  it  only 
works  with  one  feature  at  a time.  Like  MDISP,  it  first  erases 
already  displayed  columns,  and  then  retrieves  and  displays  the 
new  column,  or  columns. 

RPCOL  first  calculates  which  one  or  two  columns  are  being 
replaced  - the  left-most,  the  right-most  or  the  left  two  or  the 
right  two.  The  CLMERS  routine  is  invoked  to  enter  the  proper 
columns  in  the  erase  array,  and  the  array  is  sent  to  PALLET 
where  the  data  is  erased. 

The  index  for  the  proper  neighborhood  is  read.  The  retrieval 
process  outlined  in  the  MDISP  section  is  now  executed  once  for 
each  column  of  the  neighborhood  not  currently  displayed.  RPCOL  is 
diagrammed  in  Figure  23. 

MODE 

The  Mode  module  changes  the  mode  of  the  system  when  either 
the  automatic,  normal  or  special  function  button  is  pressed. 

The  module  consists  of  only  the  three  short  routines  listed  in 
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Figure  23  FLOWCHART  OF  RPCOL  ENTRY  INTO  DATA 
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Table  I.  Each  routine  works  exactly  like  the  other  two.  When 
a mode  function  key  is  pressed,  the  respective  routine  is  invoked 
which  then  sets  the  MODE  variable  of  the  CURSTA  common  to  the 
proper  value.  The  proper  value  is  a 1,  2 or  3 depending  on 
whether  the  mode  selected  is  automatic,  normal  or  special. 

INITIALIZATION 

The  Initialization  module  prepares  the  system  for  execution. 
Its  four  routines  are  listed  in  Table  I.  Execution  of  the  module 
is  straightforward.  Common  variables  are  initialized  by  the 
REDCOM  routines  which  read  a tape  made  by  the  SETUP  routine 
described  in  Appendix  II.  It  initializes  MP  and  FMP  by  setting 
up  buffers  and  designating  the  file  containing  the  menu  image. 

It  then  assigns  to  the  proper  buttons  the  functions  which  are 
to  be  invoked  when  a function  key  is  pressed.  The  initial  center 
point  and  extent  are  sent  via  MP  to  the  STATIN  routine  of  the 
Function  Request  Handler  to  initialize  the  CURSTA  common  array  on 
the  1-70  side  of  the  system.  The  Data  Base  Management  module 
is  finally  called  to  display  the  initial  data  bases. 
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APPENDIX  I 


DATA  BASE  CONSTRUCTION  PROGRAMS  AND  PROCEDURES 
INTRODUCTION 

In  order  to  run  the  GDD,  geographic  data  bases  have  to  be 
stored  on  secondary  store.  This  appendix  gives  a brief  description 
of,  and  operating  instructions  for,  the  two  programs  needed  to 
store  prepared  data  bases  on  the  Vermont  drum. 

DATA  BASE  CONSTRUCTION 

Once  a magnetic  tape  containing  geographic  data  in  chain 
form  has  been  put  through  the  detail  analysis  and  editing  process 
described  in  ESD-TR-76-360 , "Geographic  Data  Base  Development,"  it  is 
ready  to  be  stored  on  drum.  (The  format  of  one  of  these  tapes  and 
the  programs  used  to  manipulate  the  data  are  all  fully  described  in 
ESD-TR-76-360. ) This  storage  process  for  a single  detail  level  of 
one  feature  is  done  in  two  steps  by  two  programs  “ BLOKS  and  IMAGE. 
BLOKS  divides  a data  base  into  the  number  of  blocks  specified  by  the 
user  for  that  detail  level,  and  IMAGE  stores  each  block  on  drum  and 
constructs  an  index. 

BLOKS 

The  BLOKS  program  divides  the  chains  of  an  edited  tape  of 
geographic  data  into  the  blocks  which  will  be  used  to  construct 
neighborhoods.  Input  to  the  program  is  (1)  a geographic  data 
base  tape  which  has  had  each  point  of  a chain  assigned  a detail 
rank, (2)  the  rank  of  points  which  the  user  wishes  to  extract 
from  the  tape  for  this  detail  level  of  a feature  and(3)  the 
number  of  blocks  into  which  this  detail  level  should  be  divided. 

The  program  then  lays  a grid  over  the  map  and  examines  one  chain 
at  a time.  A chain  that  does  not  fall  entirely  within  a block 
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is  broken  up  into  smaller  chains  which  do  lie  entirely  in  a 
single  block.  Only  those  points  of  a chain  that  have  the  same 
detail  level  or  less  than  the  one  specified  by  the  user  are  kept 
on  the  output  tape.  This  output  tape  is  a list  of  these  new, 
smaller  chains  sorted  by  blocks.  The  blocks  are  ordered  on  the 
output  tape  according  to  columns , as  dictated  by  the  data  base 
management  scheme  described  in  Section  III.  This  process  is 
repeated  once  for  each  detail  level  of  a feature.  By  varying  the 
detail  level  rank  specified  and  the  number  of  blocks,  the  number 
of  points  in  the  data  base  can  be  altered,  and  the  geographic 
area  covered  by  a single  block  can  be  changed. 

BLOCKING  ALGORITHM 

The  following  algorithm  is  used  by  BLOKS  to  create  the 
blocked  output  chains. 

1.  Input  chains  from  the  data  base  are  processed  one  point 
at  a time. 

2.  A grid  block  is  assigned  to  the  first  point  of  a chain 
using  the  grid  dimensions. 

3.  A chain  is  started  in  the  assigned  block,  and  the  first 
point  is  filled  into  the  chain. 

4.  Points  are  then  read  and  copied  into  the  grid  block 
until  either  an  end  of  chain  mark  is  found  (in  which 
case  the  mark  is  written  to  end  the  chain  in  the  current 
block  and  processing  for  the  next  chain  is  begun) , or  a 
point  falls  outside  the  current  block. 

5a.  When  a point  falls  outside  the  current  block,  the  pro- 
cedure described  below  is  used  to  generate  a block  entry 
or  exit  point  each  time  a grid  line  is  crossed  by  the 
chain.  (See  Figure  24.) 
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b.  The  equation  is  found  for  the  line  connecting  the  current 
point  (the  point  falling  outside  the  current  block)  with 
the  last  point  that  was  filled  into  a block. 

c.  The  point  at  which  this  line  crosses  the  boundary  of  the 
last  block,  the  boundary  crossing  point,  is  filled  into 
the  block,  and  the  chain  is  ended  in  this  block. 

d.  A new  chain  is  started  in  the  block  that  has  been  entered, 
and  the  boundary  crossing  point  becomes  the  first  point 

in  the  new  chain. 

e.  If  the  current  point  is  in  the  crossed  block  it  is  now 
filled  in  as  the  second  point  in  the  new  chain,  and  the 
next  point  is  read  as  usual. 

f.  If  the  current  point  is  outside  the  crossed  block  an 
exit  point  is  generated  for  the  block  using  the  procedure 
in  a and  b above  and  the  chain  ended. 

g.  Entry  and  exit  points  are  generated  in  this  way  for  all 
blocks  crossed  in  reaching  the  current  point;  i.e.,  until 
the  current  point  falls  into  a crossed  block. 

A special  procedure  is  used  to  handle  input  points  which  happen 
to  fall  on  a boundary  between  grid  blocks.  Such  a point  will  be 
referred  to  as  a ‘‘boundary  point.** 

6.  When  a boundary  point  falls  outside  the  current  block  it 
is  treated  as  a normal  point  for  generating  entry  and 
exit  points  for  crossed  blocks.  The  boundary  point  is 
considered  to  be  outside  the  block  only  if  it  is  not  on 
a boundary  of  that  block. 

7a.  End  of  chain  point  — If  the  boundary  point  is  on  a 

boundary  of  the  current  block  and  is  the  end  of  an  input 
chain  it  is  filled  into  the  current  block  and  the  current 
chain  is  ended. 
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b.  Mid-chain  point  — If  the  boundary  point  is  on  a boundary 
of  the  current  block  and  does  not  start  or  end  a chain, 
the  point  is  first  filled  into  the  current  block.  A 
look  ahead  to  the  next  data  point  is  then  done  to  deter- 
mine which  block  the  input  chain  will  enter. 

If  a new  block  is  entered,  the  chain  in  the  current  block 
is  ended  and  the  boundary  point  is  used  to  start  a new 
chain  in  the  block  being  entered.  If  the  next  point 
continues  in  the  current  block,  the  chain  is  processed 
normally. 

c.  Start  of  chain  — If  the  boundary  point  is  on  a boundary 
of  the  current  block  and  is  the  start  of  an  input  chain, 
a look  ahead  to  the  next  data  point  is  done  to  determine 
which  block  the  chain  enters.  A chain  is  started  in 
this  block  using  the  boundary  point  as  its  first  point. 

d.  Single  point  chain  — If  a boundary  point  both  starts 
and  ends  an  input  chain  it  is  filled  into  the  block 
assigned  it  by  the  block-assigning  routine.  This  routine 
assigns  a boundary  point  to  the  right  or  upper  block 
depending  on  whether  a vertical  or  horizontal  grid  line 
is  straddled.  A vertex  point  (one  falling  at  the  inter- 
section of  four  blocks)  is  assigned  to  the  upper  right 
block.  This  rule  is  used  unless  it  causes  a point  to 
fall  outside  the  map  box,  in  which  case  the  point  is 
assigned  to  the  lower  or  left  block.  (See  Figure  25.) 

Operating  Instructions 

To  run  BLOKS  two  control  cards  must  be  supplied  using  the 
following  formats: 
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Card  n 

(comer  points 
of  map  box) 


Card  //2 


lower  left  columns  1~8 

X coordinate  (decimal  in  col.  3) 


lower  left  columns  10-17 

Y coordinate  (decimal  in  col.  12) 


upper  right  columns  19-26 

X coordinate  (decimal  in  col.  21) 


upper  right  columns . 28-35 

Y coordinate  (decimal  in  col.  30) 


number  of  blocks  columns  1-3 

along  the  longer  (integer-right  justified) 

side  of  box 


detail  level  at  columns  5-6 

which  to  select  (integer-right  justified) 

points 

The  load  module  for  BLOKS  is  stored  on  tape  MMC  001 . 

To  run  BLOKS  this  tape  should  be  assigned  a logical  unit  (6) 
and  loaded  using  the  operating  system  load  command  : 

LO  6 


The  following  units  should  be  assigned  to  the  appropriate 
• LOGICAL  UNIT 


01 

card  reader  for  control 

card  input 

02 

output  tape  device 

03 

printer 

04 

drum  file  4 - used  for 
of  output  data  points 

temporary  storage 

05 

teletype 

06 

input  tape  device  for  map  data  base 

BLOKS  can  now  be  started  as  follows: 


ST  2E00 

The  control  cards  will  be  read  first. 
Then  the  teletype  will  ask: 
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enter  ’t’  or  ’b*  for  top  or  bottom  overhang 

This  means  that  the  map  area,  defined  by  the  four  coordinates  on 
the  first  input  card,  is  not  square.  The  longer  side  of  the 
rectangle  has  been  divided  into  the  number  of  blocks  requested 
on  the  second  control  card.  The  block  overhang  requested  is  the 
direction  in  which  the  shorter  side  of  the  map  should  be  extended 
to  allow  an  integer  number  of  blocks  with  the  same  dimension  as 
the  blocks  in  the  longer  direction.  The  blocks  are  thus  made 
square,  having  a side  dimension  equal  to  the  length  of  long  side 
divided  by  the  number  of  blocks  requested  by  user. 

The  grid  dimensions  and  detail  level  to  be  used  are  now 
written  to  the  printer.  Then  the  data  points  are  processed  and 
totals  for  points  and  chains  read  in  from  the  input  tape  and 
totals  for  points  and  chains  actually  selected  are  printed.  Finally, 
the  output  tape  is  created  and  the  table  of  blocks  and  the  missing 
block  messages  (those  blocks  containing  no  data)  are  written  on 
the  printer. 

IMAGE 

From  the  output  tape  of  BLOKS , the  IMAGE  program  creates 
the  drum  file  of  blocks  stored  in  column  order  and  the  row  ordered 
index  file  to  those  blocks.  Since  each  tape  output  by  BLOKS 
contains  data  for  only  one  detail  level  of  a feature,  IMAGE  must 
be  run  once  for  each  detail  level  of  each  feature.  The  method  of 
operation  is  simple  - IMAGE  reads  the  input  tape  which  BLOKS  has 
created  in  column  order  and  each  block  of  data  is  stored  on  drum. 

As  it  is  stored  the  address  of  the  data  and  length  of  the  data 
is  recorded.  Once  all  data  is  stored,  the  index  is  created  by 
summing  the  lengths  of  the  blocks  in  all  possible  groups  of  four 
which  could  form  part  of  a neighborhood.  These  entries  are  then 
sorted  in  row  order  and  stored  in  the  index  file. 
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Operating  Instructions 

IMAGE  is  the  first  program  in  drum  file  51  and  can  be  loaded 
with  the  system  load  sequence: 

RW  51 
LO  51 

The  following  assignments  are  necessary: 


LU 

Device 

01 

Input  tape 

03 

Printer 

05 

Teletype 

07 

Drum 

Before  executing,  two  drum  files  must  be  allocated  to  receive 
the  data  and  the  index.  The  program  is  executed  with  the  system 
start  command  ST  2E00.  IMAGE  will  respond  with  a set  of  questions, 
an  example  of  which  is  given  in  Figure  26.  The  user  responses  are 
underlined.  This  data,  input  by  the  user,  is  formatted  and  printed 
on  the  line  printer,  followed  by  a list  of  the  block  numbers,  in 
both  row  and  column  order,  the  drum  address  for  the  data  of  a 
block  and  the  length  in  bytes  of  each  block.  This  listing  ends 
with  the  number  of  drum  blocks  used  for  the  data  file.  A listing 
of  the  index  is  then  printed.  Figures  27,  28  and  29  show  the 
three  parts  of  the  IMAGE  output  for  a 16-block  detail  level  of  a 
geographic  data  base. 
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MAPDATA 

NAME  AND  DETAIL  LEVEL?  (A4,1X,I2) 
MAP  01 

DATA  FILE  NUM?  (13) 

022 

INDEX  FILE  NUM?  (13) 

024 

BLOCK  COUNT?  (14) 

0016 

X-AXIS  BLOCK  COUNT?  (12) 

0± 

END 

EOJ 


Figure  26.  Example  Teletype  Input  for  IMAGE  Program 
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database  map  detail  level  1 

DATA  FILE  IS  23k 
INDEX  PILE  IS  2A 
X-AXIS  BLOCK  COUNT  d 
Y-AXIS  BLOCK  COUNT  4 

total  block  count  16 


Figure  27.  IMAGE  Program  Output  Restating  Input  Parameters 
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APPENDIX  II 


SYSTEM  INITIALIZATION  PROGRAM 


INTRODUCTION 

System  initialization  is  done  by  the  SETUP  program.  SETUP 
assigns  an  initial  value  to  every  variable  in  common  and  writes 
common  out  to  tape.  It  also  stores  a PALLET  image  of  a menu  and 
an  empty  image  of  "world,”  to  v/hich  the  map  will  be  attached, 
in  the  PALLET  working  file.  When  the  GDD  itself  is  executed, 
the  tape  created  by  SETUP  is  read  into  the  common  locations  at 
the  top  of  core,  immediately  initializing  all  variables  in  common. 

In  operation,  SETUP  reads  the  values  for  common  variables 
from  cards.  Those  common  variables  not  required  on  an  input  card 
are  set  to  zero  or  defined  by  some  function  of  the  input  parameters. 
The  following  discussions  will  describe  the  input  cards  and  the 
operating  procedure  for  SETUP. 

INPUT  CARDS 

A card  (or  several  cards)  is  used  to  input  the  values  for  a 
common  block.  The  order  in  which  the  commons  are  initialized 
is  set  by  the  program  and  will  be  specified  below.  The  data  on 
all  input  cards  starts  in  column  10.  From  column  10  on,  the 
format  of  the  card  varies  according  to  its  particular  purpose. 

The  first  nine  columns  are  not  read  by  SETUP  but  can  be  used  by  the 
programmer  to  identify  the  card. 

The  first  cards  to  be  read  contain  values  pertaining  to 
the  system  as  a whole  or  to  all  data  bases.  They  include  the  FAC, 
MENU,  TREES,  COLORS,  COMMON,  ERASE,  MAP,  and  CURSTA  commons.  The 
next  set  of  cards  define  the  values  of  the  DATBAS  common.  Finally, 
the  PALLET  file  definition  cards  are  read  in  and  then  the  MACRO 
common  is  initialized . 
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Common  Initialization  Cards 


The  first  ten  cards  are  defined  in  Tables  II  through  XI.  In 
these  tables,  the  first  column  gives  the  names  of  the  variables 
to  be  initialized  in  the  common  identified  at  the  top  of  the  table. 
The  information  in  the  Purpose  column  can  be  .supplemented  from  the 
common  definition  tables  in  Appendix  IV.  The  example  value  is 
•the  value  used  by  the  current  system. 

Card  if  I does  not  initialize  a common.  The  length  of  the 
entire  common  section  is  used  by  SETUP  to  write  the  correct  amount 
of  core  out  to  tape. 

Card  if 3 initializes  the  variables  which  tell  the  system 
where  to  locate  parts  of  the  menu.  The  locations  are  given  in  a 
PALLET  coordinate  system  defined  to  be(0.,0.)to  (511., 479.)  - one 
unit  per  dot  on  the  screen.  The  locations  are  figured  out  by  the 
24  X 14  dot  matrices  which  contain  a character.  Thus,  the  first 
line  on  the  bottom  of  the  screen  has  a y-coordinate  of  24  and 
the  first  character  has  an  x-  coordinate  of  0.  The  second  line 
has  y-  coordinate  = 48  and  the  second  character  has  an  x-  coordinate 
of  14. 

On  card  if 5 the  function  buttons  are  identified.  The  initial 
values  given  in  the  table  are  the  decimal  representations  of  the 
characters;  generated  by  the  RAMTEK  when  these  function  buttons  are 
hit.  These  characters  are  defined  in  the  RAMTEK  documentation. 

Card  if6  defines  the  colors,  red,  yellow,  g;reen  and  black, 
used  by  the  menu  for  the  one  plugging  of  the  RAMTEK  given  in 
Appendix  111.  These  colors  can  be  changed  by  replugging  the  red, 
blue  and  green  outputs  of  the  RAMTEK  into  different  plugs  on 
the  TV  monitor.  This,  too,  is  documented  in  the  RAMTEK  manuals. 

The  COMMUN  common  is  initialized  by  card  //7.  The  feature 
data  bases  are  numbered  in  the  order  in  which  they  are  read  into 
the  DATBAS  common.  By  setting  the  proper  entries  in  the  SELECT 
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array  to  the  detail  level  of  the  features  needed  in  the  initial 
display,  the  user  forces  the  display  of  these  features. 

DATBAS  Initialization 

The  next  group  of  cards  to  be  read  in  defines  the  feature 
library  by  initializing  the  DATBAS  common.  This  process  is  done 
in  a loop  repeated  once  for  each  feature.  Within  this  loop  is 
another  loop  repeated  once  for  each  detail  level  of  the  feature. 
Thus,  each  feature  is  defined  by  one  card  (see  Table  XII)  followed 
by  two  cards  (see  Tables  XIV  and  XV)  for  each  detail  level  of  that 
feature.  This  sequence  is  repeated  for  each  feature.  The  order 
in  which  the  features  are  read  in  is  the  order  in  which  the 
features  are  indexed  throughtout  the  GDD  program.  If  the  first 
feature  read  in  is  coastlines,  then  to  select  coastlines  for 
display,  the  first  element  of  the  SELECT  array  in  the  GOMMUN 
common  is  set  to  the  desired  detail  level. 

Tables  XII  through  XV  define  the  cards  needed  to  perform  the 
DATBAS  initialization.  The  first  card  in  Table  XII  is  needed 
only  once  to  define  the  number  of  features  in  the  library.  Each 
of  the  other  three  types  of  cards  must  be  repeated  to  initialize 
all  features.  If  there  are  two  features,  the  first  with  two  detail 
levels  and  the  second  with  one,  the  order  of  cards  is  as  follows: 


Card 

//ii 

Card 

#12 

for 

1st 

feature 

Card 

#13 

for 

1st 

detail 

level 

Card 

#14 

for 

1st 

detail 

level 

Card 

#13 

for 

2nd 

detail 

level 

Card 

#14 

for 

2nd 

detail 

level 

Card 

#12 

for 

2nd 

feature 

Card 

#13 

for 

1st 

detail 

level 

Card 

#14 

for 

1st 

detail 

level 
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PALLET  File  and  Macro  Definition 


This  last  group  of  cards  initializes  the  PALLET  file  con- 
taining the  menu  and  the  macro  expansion  capability  of  the  GDD, 

Two  cards  (Table  XVI  and  XVII)  are  read  first,  followed  by  a loop 
which  reads  two  cards  (Tables  XVIII  and  XIX)  for  each  entry  in  the 
menu,  in  the  order  in  which  they  should  appear  in  the  menu. 

OPERATING  INSTRUCTIONS 

The  program  SETUP  can  be  loaded  from  tape  DHL  007  using 
the  COREDP  program.  The  following  sequence  is  necessary  to  load 
SETUP.  Computer  responses  are  underlined. 

Load  DHL  007  on  drive  95. 


AS 

0195 

RW 

DE 

BI 

DCOO 

LO 

DE 

ST 

DCOO 

LOAD  OR  STORE 

LO 

DEVICE 

NUMBER  (NN) 

01 

START,  END 
0080, 7000 


EOJ 

The  following  assignments  must  be  made  to  run  SETUP; 


LU 

Device 

01 

Card  Reader 

05 

Teletype 

06 

Output  tape 

07 

Drum 
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After  the  assignments  are  made,  load  the  input  cards  into  the 
card  reader  and  issue  the  start  command: 

ST  2E00 

When  SETUP  is  done,  the  output  tape  will  contain  the  initialized 
common.  The  tape  may  now  be  used  to  initialize  the  GDD. 
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Table  II 


Card  //I 


Common  - NA 

Format  Statement  (9X,I4) 


Example 


Variable 

Purpose 

Initial  Value 

Card  Col 

Format 

ICOML 

length  in  decimal 

2844 

10-13 

14 

of  all  common 
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Table  III 


Card  #2 


Common  - FAC 

Format  Statement  (9X, 2F10 • 0) 

Example 

Variable 

Purpose 

Initial  Value 

Card  Col 

Format 

ZOOMIN 

magnification  factor 
when  zooming  in 

.666666 

10-19 

FIO.O 

ZOOMOT 

magnification  factor 
when  zooming  out 

1.5 

20-29 

FlO.O 
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Table  IV 


Card  //3 


Common  - MEN CON 

Format  Statement  (9X,7F6.1) 


Variable  Purpose 


Example 

Initial  Value  Card  Col 


ONXC  x-coordinate  of  the  28.0  10-15 

left  side  of  the  ON 
column  of  the  menu 


ONRXC  x-coordinate  of  the  304.  16-21 

right  side  of  the  ON 
column 


OFFXC 

x-coordinate  of  left 
side  of  OFF  column 

350. 

22-27 

OFFRXC 

x-coordinate  of  right 
side  of  OFF  column 

392. 

28-33 

STATY 

y-coordinate  of  status 
line  of  menu 

00 

34-39 

RESYC 

y-coordinate  of  system 
response  line 

24. 

40-45 

RLEFT 

x-coordinate  for  start 
of  status  and  response 
lines 

00 

CM 

46-51 

Format 

F6.1 

F6.1 

F6. 1 
F6.1 
F6.1 
F6.1 
F6.1 
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Table  V 


Card  #4 


Common  - MENCON 

Format  Statement  (9X,4 (2A4 , IX) ) 

Example 


Variable 

Purpose 

Initial  Value 

Card  Col 

Format 

MENNME 

contains  PALLET  name 
of  the  image  of  the 
menu 

MENUIMGE 

10-17 

2A4 

STATUS 

contains  PALLET  name 
of  the  image  con- 
taining status 
information 

STATUS 

19-26 

2A4 

SYSTAT 

contains  PALLET  name 
of  character  string 
of  the  system  status 
message 

SYSTATUS 

28-35 

2A4 

SYSRES 

contains  PALLET  name 
of  character  string 

SYSRES 

37-44 

2A4 

of  the  response 
message 
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Table  VI 


Card  //5 


Common  - TREES 

Format  Statement  (9X,2I1 ,1X,2A4,8(I3,1X) ,2A4) 

Example 

Variable  Purpose  Initial  Value  Card  Col  Fomat 


MAPTRE 

PALLET  device  number 
of  map  display  tree 

1 

10  . 

11 

MENTRE 

PALLET  device  number 
of  menu  display  tree 

2 

11 

11 

WORLD 

PALLET  name  of  node 
to  which  geography 
is  attached 

WORLD 

13-20 

2A4 

ZINBUT 

Zoom  in  function 
button  on  RAMTEK 

141 

21-23 

13 

TRNBUT 

Translate  function 
button 

134 

25-27 

13 

SLCTBT 

Select  function 
button 

139 

29-31 

13 

AUFBUT 

Normal  mode  selection 
button 

140 

33-35 

13 

ZOTOUT 

Zoom  out  function 
button 

137 

37-39 

13 

MENBUT 

Menu  function  button 

135 

41-43 

13 

AONBUT 

Automatic  mode 
selection  button 

136 

45-47 

13 

STABUT 

Special  mode  selection 
button 

144 

49-51 

13 

RMAP 

Contains  PALLET  name  MAP 

for  image,  defined  in 
map  coordinate  system, 
containing  geographic  data 

53-60 

2A4 
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Table  VII 


Card  //6 


Common  - COLORS 

Format  Statement  (4  (12, IX)) 

Example 


Variable 

Purpose 

Initial  Value 

Card  Col 

Format 

RED 

decimal  represen- 
tation for  color 
red  on  RAMTEK 

02 

10-11 

12 

YELLOW 

RAMTEK  color  yellow 

06 

13-14 

12 

GREEN 

RAMTEK  color  green 

04 

16-17 

12 

BLACK 

RAMTEK  null  color 

00 

19-20 

12 
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Table  VIII 


Card  #7 


Common  - COMMUN 

Format  Statement  (9X,10I2) 

Example 

Variable  Purpose  Initial  Value  Card  Col 

SELECT  defines  which  feature  01  10-29 

data  bases  should 
initially  be  dis- 
played by  setting 
the  proper  entries 
in  the  SELECT  array 
to  the  wanted  detail 
level. 


Format 

1012 
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Table  IX 


Card  //8 


Common  - ERASE 

Format  Statement  (9X,I3) 


Variable  Purpose  Initial  Value  Card  Col 

ERSIZE  defines  the  length  40  10-12 

of  the  ERASE  array 


Format 

13 
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Table  X 


Card  #9 


Common  - MAP 

Format  Statement  (9X,4F10.4) 

Example 


Variable 

Purpose 

Initial  Value 

Card  Col 

Format 

MXl 

x-coordinate  of 
lower  left  corner 
of  European  map 
in  projected  map 
coordinates 

-.398 

10-19 

F10.4 

MYl 

y-coordinate  of 
lower  left  corner 
of  European  map 
in  projected  map 
coordinates 

-.266 

20-29 

F10.4 

MX2 

x-coordinate  of 
upper  right  corner 

.278 

30-39 

F10.4 

MY2 

y-coordinate  of 
upper  right  corner 

.410 

40-49 

F10.4 
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Table  XI 


Card  #10 


Common  - CURST A 

Format  Statement  (9X,4F10.4) 

Example 


Variable 

Purpose 

Initial  Value 

Card  Col 

Format 

XCENM 

x-coordinate  of 
the  center  of  the 
map  for  initial 
display  in  pro- 
jected map 
coordinates 

1 

o 

10-19 

F10.4 

YCENM 

y-coordinate  of 
initial  center 

.03 

20-29 

FlO.4 

XEXTNT 

initial  x-extent  of 

.002093749 

30-39 

F10.4 

map  in  map  units  per 
dot  on  display  screen 


YEXTNT  initial  y-scale  of  map  .001601576  40-49  F10.4 

in  map  units  per  raster 
line 


The  FORTRAN  input  routine  gives  precedence  to  the  decimal  point 
in  the  input  field,  overriding  the  format  specified  for  that 
field. 
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Table  XII 


Card  //ll 


Common  - DATBAS 
Format  Statement  (9X,I2) 

Example 


Variable 

Purpose 

Initial  Value 

Card  Col 

Format 

NUMDB 

defines  number  of 

2 

10-11 

12 

features  in  library 
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Table  XIII 


Card  //12  (and  repeated  for  each  feature) 


Common  - DATBAS  - one  card  for  each  feature 
Format  Statement  (9X,A4, 1X,I1 , 1X,I1 , 1X,I2) 

Example 


Variable 

Purpose 

Initial  Value 

Card  Col ' 

Format 

PREFIX 

contains  data  base 
name 

RIVR 

10-13 

A4 

NUMLEV 

number  of  detail 
levels  for  this 
feature 

2 

15 

11 

INMENU 

0 if  feature  not 
listed  in  menu 

1 if  feature  is 
listed 

1 

17 

11 

POSFET 

position  feature  is 
listed  in  menu  in 
lines  from  the  top 
of  the  list 

2 

19-20 

12 
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Table  XIV 


Card  #13  (and  repeated  for  each  detail  level) 


Common  - DATBAS  (one  card  for  each  detail  level  of  feature  currently 
being  initialized) 

Format  Statement  (9X,2F10. 6 ,214) 


Example 


Variable 

Purpose 

Initial  Value 

Card  Col 

Format 

ZMOTHR 

zoom  out  extent 
threshold 

.001395832 

10-19 

F10.6 

ZMINTH 

zoom  in  extent 
threshold 

.000275720 

20-29 

F10.6 

NUMX 

number  of  blocks 
into  which  detail 
level  is  divided  in 
X direction 

9 

30-33 

14 

NUMY 

number  of  blocks  y 
axis  is  divided  into 
y direction 

9 

34-37 

14 

* 


ibid. 
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Table  XV 


Card  #14  (and  repeated  for  each  detail  level) 


Common  - DATBAS  (one  card  for  each  detail  level  of  feature  currently 
being  initialized) 


Format  Statement  (9X,2I3 ,Il , IX, 12) 

Example 

‘Variable  Purpose  Initial  Value  Card  Col  Format 


IFILE 


DBINDX 


ITYPE 


decimal  file  number  119 

of  drum  file  con- 

taining data 

decimal  file  number  120 

of  drum  file  con- 

taining index 

l=point  data  base  2 

2=line  data  base 


10-12  13 


13-15  13 


16  II 


ICOLOR  color  of  data  base  08  18  -19  12 

according  to  current 
plugging  of  RAMTEK 
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Table  XVI 


Card  #15 


Common  - FILE 

Format  Statement  (9X,I3) 

Example 

Variable  Purpose  Initial  Value  Card  Col 

MFILE  identifies  decimal  115  10-12 

drum  file  number  to 
be  used  by  PALLET 
to  store  menu  image 


Format 

13 
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Table  XVII 


Card  #16 


Common  - MACRO 

Format  S tatemen t (9X ,12) 

Example 


Variable 

Purpose 

Initial  Value 

Card  Col 

Format 

NUMFET 

number  of  features 

2 

10-11 

12 

actually  listed  in 
the  menu 

Table  XVIII 


Card 

#17  (and  repeated  for 

each  line  in  the  menu) 

Common 

- MACRO 

Format 

S ta tement  (9X , AAA ,12) 

Example 

Variable  Purpose 

Initial  Value 

Card  Col 

Format 

TITLE 

16  characters  to 
appear  as  the  menu 
entry  for  that 
feature 

RIVERS (2) 

10-25 

4A4 

MACNUM 

number  of  features 
in  the  macro  ex- 
pansion of  this 
menu  entry 

1 

26-27 

12 
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Table  XIX 


Card  //18  (and  repeated  for  each  line  in  the  menu) 

Common  - MACRO 

Format  Statement  (9X,4I2) 


Variable 

Example 

Purpose  Initial  Value  Card  Col  Format 

MACEXP 

the  ordered  numbers  01  10-17  4I2 

of  each  feature 
data  base  repre- 
sented by  this 
line  in  the  menu 
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APPENDIX  III 


GDD  OPERATING  PROCEDURES 


OPERATING  INSTRUCTIONS 

The  following  three  tapes  are  needed  to  run  the  GDD: 

DHL  019  - contains  core  image  of  GDD  for  the  1-70 
DHL  004  - contains  core  image  of  GDD  for  the  1-4 
DHL  018  - output  of  SETUP  program  to  initialize  the  1-4 
Initialize  both  machines  and  start  at  address  X'108'.  Be 
sure  the  RAMTEK  is  on  and  plugged  in  the  following  manner: 


DISPLAY 

MENU 

MONITOR 

MONITOR 

CHANNEL 

SUBCHANNEL 

INPUT 

INPUT 

0 

1 

R 

0 

2 

G 

0 

3 

B 

1 

o 

f— 1 

R 

1 

2,0 

G 

1 

3,0 

B 

system  tapes 

can  now  be 

loaded  using  the  COREDP 

program. 

The  following  sequences  are  necessary: 
underlined) 

(computer 

responses  are 

1-70 

I 

-4 

Load  DHL  019  on  drive  85 

Load  DHL 

004  on  drive  95 

AS  0685 

AS 

0195 

ST  2E00 

RW 

DE 

LOAD  OR  STORE 

BI 

DCOO 

LO 

LO 

DE 

DEVICE  NUMBER 

ST 

DCOO 

06 
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1-70  (cont ’d) 


1-4  (cont ’d) 


ST ART. END 

LOAD  OR  STORE 

0080,  8000 

LO 

EOJ 

DEVICE  NUMBER 

01 

START, END 

0080 , FFFE 
EOJ- 

Now  load  DHL  018,  the  SETUP  output  tape,  on  drive  85  on 
the  1-4.  Start  the  1-70  with  the  following  command: 

ST  3000 

Then  start  the  1-4  by  issuing  : 

ST  2E00 

Both  machines  should  type  MPV2.3  followed  by  the  word  SYSINIT  on 
the  1-4.  The  map  should  then  appear  on  the  display  screen.  When 
the  entire  map  is  displayed,  both  machines  will  cycle  with  the 
display  panel  lights  blinking,  indicating  they  are  idling  waiting 
for  messages. 

Once  the  display  has  appeared,  the  operator  can  zoom, 
translate,  use  the  menu,  or  select  modes  as  described  in  Section  II. 
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APPENDIX  IV 


COMMONS 


INTRODUCTION 

The  GDD  has  13  labeled  common  blocks.  The  variables  are 
grouped  in  blocks  according  to  function  - variables  relating  to 
a specific  aspect  of  the  system  are  in  one  common  block.  Nine 
of  the  thirteen  blocks  contain  only  static  variables  which  retain 
their  initial  values  throughout  the  operation  of  the  GDD.  The 
other  four  either  contain  system  status  information  or  are  used 
for  intermodule  communication.  The  discussion  below  will  center 
on  these  dynamic  commons;  the  information  in  the  static  commons  is 
briefly  stated  at  the  end. 

COMMONS 

The  use  of  the  COMMUN  common  to  provide  intermodule  com- 
munication has  been  discussed  in  Section  V.  The  use  of  SELECT 
and  DELETE  arrays  of  the  COMMUN  common  is  restated  in  Table  XX. 

What  has  not  been  stated  before  is  the  relationship  between  a 
feature  data  base  and  an  entry  in  the  SELECT  and  DELETE  arrays  or 
any  of  the  arrays  in  the  DATSTA  or  DATBAS  commons.  Previously, 
only  the  “proper  entry”  has  been  referred  to.  The  answer  is 
simple  and  relates  to  any  variable  array  containing  information 
about  the  set  of  feature  data  bases:  when  the  system  is  initialized 
data  is  read  from  cards  describing  the  size  and  location  of  each 
feature  data  base.  The  order  in  which  the  description  of  the 
data  base  is  read  is  the  order  in  which  it  appears  in  the  common 
arrays.  The  first  feature  read  in  becomes  feature  number  one, 
and  the  first  entry  in  all  arrays  pertaining  to  the  feature  data 
bases  is  assigned  to  feature  number  one.  For  example,  in  the  case 
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of  the  COMMUN  common,  if  the  river  data  base  is  to  be  displayed 
at  level  one  and  is  currently  displayed  at  level  two,  DELETE (2) 
is  set  non-zero  and  SELECT (2)  is  set  to  one.  Assuming  the  river 
feature  was  the  second  feature  described  by  the  cards  at  initializa- 
tion time,  the  current  river  neighborhood  will  be  erased  and  a 
new  one  retrieved  from  detail  level  1. 

CURSTA  is  another  dynamic  common  briefly  discussed  in  Section 
V.  It  contains  the  current  and  previous  status  of  the  display 
window  - center  point,  extent,  cursor  position  and  mode.  Table 
XXI  lists  the  CURSTA  variables  and  their  meaning.  All  variables 
of  the  CURSTA  common  except  MODE  are  only  altered  by  the  CURSTA 
subroutine  of  the  Data  Exception  module  when  it  receives  a message 
from  the  Function  Request  module.  This  message  contains  not 
only  the  new  center  point  and  scale,  but  also  previous  values. 

All  values  are  stored  in  the  CURSTA  common.  The  variable  MODE 
indicates  whether  the  system  is.  in  automatic,  nomal  or  special 
mode  and  is  only  changed  by  the  three  routines  in  the  Mode  module. 

DATSTA  is  another  status  common.  It  contains  the  status  of 
each  data  base  currently  displayed.  Table  XXII  lists  the  variables 
and  the  meaning  of  the  DATSTA  common.  CURLEV  and  COL  are  modified 
only  by  the  Data  Base  Management  module,  GX  and  GY  by  the  Data 
Exception  and  the  Data  Base  Management  module  and  AUTOFS  by  the 
Menu  module  and  Data  Exception  module. 

The  final  dynamic  common  is  ERASE.  This  common  contains  all 
variables  needed  to  erase  a column  or  set  of  columns  from  the 
display  screen.  Table  XXIII  defines  the  variables  in  this  common. 

STATIC  COMMONS 

The  static  commons  contain  constants  defined  when  the  system 
is  initialized.  No  variable  in  the  common  is  altered  after 
initialization.  The  purpose  of  each  of  the  nine  static  common 
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blocks  is  self-evident  from  Table  XXIV  through  Table  XXXII  which  define 
the  variables  in  each  common.  Only  the  MACRO  common  needs  elu" 
cidation • 

The  MACRO  common  contains  all  the  variables  necessary  for 
identifying  which  feature  has  been  selected  from  the  menu  by 
the  user  and  expanding  this  feature  into  as  many  as  four  different 
data  bases.  For  example,  the  menu  could  contain  separate  entries 
for  coastline  and  political  boundaries;  each  could  be  turned 
on  or  off  separately;  or,  either  in  addition  to  or  in  place  of 
those  two  entries,  an  entry  called  "boundaries**  could  appear 
in  the  menu.  If  **boundaries**  were  selected  it  would  be  expanded 
into  the  two  data  bases,  coastlines  and  political  boundaries. 

This  expansion  would  be  done  by  first  examining  MACNUM  to  deter- 
mine how  many  data  bases  are  represented  by  the  feature  selected 
from  the  menu.  In  this  case,  it  is  two.  The  first  two  entries 
in  MACEXP  for  the  menu  feature  selected  are  the  ordered  numbers 
assigned  at  initialization  time  to  political  and  coastline 
boundaries.  These  numbers  are  used  as  the  indices  of  the  SELECT 
and  DELETE  arrays  of  the  COMMUN  common  to  request  an  operation 
on  these  data  bases.  It  should  be  noted  that  the  index  into 
MACNUM  and  MACEXP  is  the  position  of  the  selected  feature  on  the 
display  screen. 
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Table  XX 


COMMUN  COMMON 

VARIABLE 
SELECT (10) 


DELETE (10) 

which  currently  displayed  data  bases 
should  be  deleted  either  because  of 
menu  deletion  or  automatic  zoom 
thresholds. 

0 - if  not  to  be  deleted 

1 - if  to  be  deleted. 


TYPE  MEANING 

I Intermodule  communication  identifying 

which  data  bases  have  been  selected 
for  display  either  by  the  menu  or 
automatic  zoom  thresholds. 

0 - data  base  is  not  to  be  displayed 
1-4  detail  level  at  which  data  base 
should  be  displayed. 

I Intermodule  communication  identifying 
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Table  XXI 


CURSTA  COMMON 


VARIABLE  TYPE 
MODE  I 

XCENM  R 
YCENM  R 
OXCEN  R 
OYCEN  R 
XEXTNT  R 

YEXTNT  R 

OXXTNT  R 
OYXTNT  R 
XCURA  R 
YCURA  R 
OXCURA  R 


MEANING 

Identifies  the  mode  of  the  system 

1 = Automatic 

2 = Normal 

3 = Special 

X-coordinate  of  map  center  in  projected 
map  coordinates 

Y-coordinate  of  map  center  in  projected 
map  coordinates 

Value  of  XCENM  prior  to  last  translate 
or  zoom 

Value  of  YCENM  prior  to  last  translate 
or  zoom 

Current  extent  of  displayed  map  in 
X direction  given  in  map  units  per 
dot  on  screen 

Current  extent  of  displayed  map  in 

Y direction  given  in  map  units  per 
lines  on  the  screen 

Value  of  XEXTNT  prior  to  last  zoom  or 
translate 

Value  of  YEXTNT  prior  to  last  zoom  or 
translate 

X position  of  cursor  in  absolute 
device  coordinates  (0-479) 

Y position  of  cursor  in  absolute 
device  coordinates  (0-511) 

Value  of  XCURA  prior  to  last  zoom  or 
translate 
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Table  XXI  (concluded) 


VARIABLE 

TYPE 

MEANING 

OYCURA 

R 

Value  of  YCURA  prior 
translate 

to 

last  zoom  or 

XCURM 

R 

X cursor  position  in 
system 

map 

coordinate 

YCURM 

R 

Y cursor  position  in 
system 

map 

coordinate 

OXCURM 

R 

Value  of  XCURM  prior 
translate 

to 

last  zoom  or 

OYCURM 

R 

Value  of  YCURM  prior 
translate 

to 

last  zoom  or 
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Table  XXII 


VARIABLE 

CURLEV(IO) 

AUTOFS(IO) 


GX(IO) 


GY(IO) 


COL (4, 10) 


DATSTA  COMMON 

TYPE  MEANING 

I The  current  detail  level  at  which 

each  feature  data  base  is  displayed. 

0 - not  displayed 

1-4  current  displayed  detail  level 

I 0 - if  feature  not  currently  selected 

for  display  by  menu  or  automatic  mode. 

1 - if  feature  currently  selected  for 
display  by  menu  or  automatic  mode. 

If  AUTOFS  = 1 for  a feature  the 
feature  is  not  necessarily  displayed; 
this  is  still  a function  of  the  extent 
thresholds  for  that  feature.  It  does 
mean  that  if  in  normal  mode  and  AUTOFS 
= 1,  the  feature  will  be  displayed 
when  scale  is  within  the  thresholds. 

I X-coordinate  of  grid  point  which 

defines  center  of  the  current  neigh- 
borhood of  blocks.  If  a detail  level 
is  divided  into  N blocks  in  the  X 
direction,  GX  for  a data  base  ranges 
from  2 to  N-2  depending  on  which  line 
of  the  grid  the  center  point  of  the 
displayed  map  is  nearest. 

I Y-coordinate  of  grid  point  which 

defines  center  of  the  current  neigh- 
borhood of  blocks.  If  a detail  level 
is  divided  into  N blocks  in  the  Y 
direction,  GY  for  that  data  base  ranges 
from  2 to  N-2  depending  on  which  vertex 
of  the  grid  the  center  point  of  the 
displayed  map  is  nearest. 

I For  each  displayed  feature,  COL  contains 

the  block  numbers  of  the  four  blocks 
of  the  neighborhood  which  are  at  the 
top  of  the  columns  of  the  neighborhood. 
The  blocks  are  numbered  in  row  order. 
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Table  XXII  (concluded) 


VARIABLE 
COL  (cont'd) 


TYPE  MEANING 

COL  holds  these  block  numbers  in  their 
order  in  the  neighborhood  from  left 
to  right.  A value  of  0 indicates  that 
a column  in  that  position  contains  no 
data.  If  a feature  is  not  displayed, 
COL  for  that  feature  is  0. 
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Table  XXIII 


VARIABLE 

ERSAR(2,40) 

ICNT 

ERSIZE 


ERASE  COMMON 

TYPE  MEANING 

A Contains  a list  of  the  8-character 

PALLET  names  of  the  columns  of  neigh- 
borhoods that  need  to  be  erased  from 
the  display.  A name  consists  of  the 
4 character  feature  name  in  the 
variable  PREFIX  and  the  four  byte 
column  number  in  the  variable  COL. 

I Counts  the  number  of  entries  currently 

in  ERSAR. 

I Maximum  size  of  the  ERSAR  array. 
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Table  XXIV 


VARIABLE  TYPE 
RED  I 

■ YELLOW  I 
GREEN  I 
BLACK  I 


COLORS  COMMON 
MEANING 

Value  needed  to  produce  red  on  the 
RAMTEK  for  standard  plugging  given 
in  Appendix  III . 

Same  as  above  for  yellow 

Same  as  above  for  green 

Value  is  0 to  produce  black. 
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Table  XXV 


DATBAS  COMMON 


VARIABLE  TYPE 

PREFIX(IO)  A 

NUMLEV(IO)  I 

INMENU (10)  I 


ZMOTHR(4,10)  R 


ZMINTH(4,10)  R 


D(4,10)  R 
NUMX(4,10)  I 
NUMY(4,10)  I 
IFILE(4,10)  I 


DBINDX(4,10)  I 


MEANING 

Contains  the  4- character  feature  name 
to  be  used  in  constructing  PALLET 
names  of  displayed  images. 

Number  of  detail  levels  in  each  feature. 

1 - feature  is  listed  in  the  menu 
0 - feature  is  not  listed  in  the  menu 
but  is  included  in  the  macro  expansion 
of  some  other  listing  in  the  menu. 

The  X extent  values  at  which,  when 
zooming  out,  the  detail  level  of  a 
feature  should  be  changed. 

The  X extent  values  at  which,  when 
zooming  in,  the  detail  levels  of  a 
feature  should  be  displayed  or  changed. 

The  width  in  map  units  in  the  X direction 
of  a single  block  of  each  of  the 
possible  detail  levels  of  a feature . 

Number  of  blocks  in  X direction  into 
which  each  of  the  four  possible  detail 
levels  of  a feature  is  divided. 

Number  of  blocks  in  Y direction  into 
which  each  of  the  four  possible  detail 
levels  of  a feature  is  divided. 

Decimal  drum  file  number  for  the  data 
base  file  of  each  of  the  four  possible 
detail  levels  of  a feature. 

Drum  file  number  for  each  of  the  index 
files  of  the  four  possible  detail 
levels  of  a feature. 
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Table  XXV  (concluded) 


VARIABLE  TYPE 

ITYPE(4,10)  I 

ICOLOR(4,10)  I 

NUMB  I 


MEANING 

Data  base  type  as  defined  by  PALLET 

1 ■=  point  data  base 

2 = line  data  base 

Color  with  which  each  of  the  four 
possible  detail  levels  of  a feature 
should  be  displayed.  Value  is  de- 
termined by  the  RAMTEK  plugging  as 
explained  in  Appendix  III. 

Actual  number  of  feature  data  bases 
available  to  the  system  up  to  a 
maximum  of  10. 
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Table  XXVI 


VARIABLE 

TYPE 

FAC  COMMON 
MEANING 

ZOOMIN 

R 

Factor  with  which  the 
be  multiplied  to  give 
after  a zoom  in. 

old 

new 

extent  must 
extent 

ZOOMOT 

R 

Factor  with  which  the 
be  multiplied  to  give 
after  a zoom  out. 

old 

new 

extent  must 
extent 
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Table  XXVII 


FILE  COMMON 

VARIABLE 

TYPE 

MEANING 

MFILE 

I 

Decimal  drum  file  number  of  file  to 
be  used  by  PALLET  for  storage  of 
image  definitions. 
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Table  XXVIII 


VARIABLE  TYPE 

MACNUM(IO)  I 


MACEXP(10,4)  I 


FETPOS(IO)  I 


POSFET(IO)  I 


NUMFET  I 


MACRO  COMMON 
MEANING 

Number  of  data  bases  in  the  macro 
expansion  of  each  line  of  the  menu 
list.  There  are  a total  of  10  possible 
lines  in  the  menu.  There  is  a maximum 
of  4 features  in  a macro  expansion. 

For  each  of  the  lines  in  the  menu  list, 
MACEXP  contains  the  index  of  the 
feature  data  bases  represented  by  that 
line.  The  actual  number  of  features 
for  each  line  is  determined  by  MACNUM. 
The  index  for  a feature  in  the  macro 
expansion  is  the  order  in  which  the 
the  data  bases  are  defined  during 
initialization. 

For  each  line  on  the  screen,  the  value 
of  FETPOS  gives  the  proper  index  into 
MACNUM  and  MACEXP.  (The  line  numbers 
on  the  screen  do-  not  directly  give 
the  index  since  there  are  several 
title  lines  in  the  menu.) 

For  a given  feature,  POSFET  contains 
the  line  of  the  menu  on  the  screen 
which  represents  that  feature.  It  is 
in  a sense  the  reverse  of  FETPOS. 

POSFET  goes  from  feature  to  screen, 
FETPOS  goes  from  screen  to  macro 
index . 

Number  of  lines  in  the  menu  list 
of  features . 
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Table  XXIX 


MAP  COMMON 


VARIABLE 

TYPE 

MEANING 

MXl 

R 

X coordinate  of 
of  the  map  area 
coordinates. 

the  lower  left  corner 
in  projected  map 

MYl 

R 

Y coordinate  of 
of  the  map  area 
coordinates • 

the  lower  left  corner 
in  projected  map 

MX2 

R 

X coordinate  of 
of  the  map  area 
coordinates. 

the  upper  right  corner 
in  projected  map 

MY2 

R 

Y coordinate  of 
of  the  map  area 
coordinates . 

the  upper  right  corner 
in  projected  map 
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Table  XXX 


MENCON  COMMON 


VARIABLE 

TYPE 

MEANING 

MENU 

I 

0 - if  menu  is  not  currently  displayed 

1 - if  menu  is  currently  displayed 

ONXC 

R 

X coordinate  of  left  margin  of  ON 
column  of  the  menu* 

ONRXC 

R 

X coordinate  of  the  right  margin  of  ON 
column  of  the  menu* 

OFFXC 

R 

X coordinate  of  left  margin  of  OFF 
column  in  menu* 

OFFRXC 

R 

X coordinate  of  the  right  margin  of 
OFF  column  in  menu* 

MENNME(2) 

A 

8- character  PALLET  name  of  menu  image 

STATUS (2) 

A 

8-character  PALLET  name  of  status 
image 

SYSTAT(2) 

A 

8-character  PALLET  name  of  status 
character  string 

SYSRES(2) 

A 

8-character  PALLET  name  of  system 
response  character  string 

STATY 

R 

Y coordinate  of  location  of  status 
message  in  menu* 

RESYC 

R 

Y coordinate  of  location  of  response 
message  in  menu* 

RLEFT 

R 

X coordinate  of  start  of  both  status 
and  response  message* 

Defined  in  terms  of  menu  coordinate  system  - lower  left (0,0)  and 
upper  right  (511,479). 
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Table  XXXI 


MNUTIA  COMMON 

(constant  variables  used  only  to  make  code  more  readable) 


VARIABLE 

TYPE 

MEANING 

ON 

I 

1 

OFF 

I 

0 

YES 

I 

1 

NO 

I 

0 

UP 

I 

1 

PASS 

I 

-1 

AUTON 

I 

1 

AUTOF 

I 

2 

STATIC 

I 

3 
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Table  XXXII 


TREES  COMMON 


VARIABLE 

TYPE 

MEANING 

MAPTRE 

I 

PALLET  device  number  on 
displayed 

which  map  is 

MENTRE 

I 

PALLET  device  number  on 
displayed 

which  menu  is 

WORLD (2) 

A 

8- character  PALLET  name  of  tree  node 
to  which  map  is  attached 

ZINBUT 

I 

RAMTEK  function  key  for 

zooming  in 

TRNBUT 

I 

RAMTEK  function  key  for 

translating 

SLCTBT 

I 

RAMTEK  function  key  for 

menu  selection 

AUFBUT 

I 

RAMTEK  function  key  for 
normal  mode 

selecting 

ZOTBUT 

I 

RAMTEK  function  key  for 

zooming  out 

MENBUT 

I 

RAMTEK  function  key  for 
entering  menu 

requesting  and 

AONBUT 

I 

RAMTEK  function  key  for 
automatic  mode 

selecting 

STABUT 

I 

RAMTEK  function  key  for 
static  mode 

selecting 

RMAP(2) 

A 

8— character  PALLET  name 
containing  map  data 

of  image 
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APPENDIX  V 


PROGRAM  SUMMARY  SHEETS 
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G D D 


PROGRAM  SUMMARY  SHEET 


1)  ROUTINE:  arinh 

2)  MODULE:  INITIALIZATION  3)  MACHINE:  l-4 

4)  CALLING  STATEMENT: 

NA 

5)  ARGUMENTS : 

NA 

6)  CALLED  BY: 
NA  ■ 

7)  CALLS  ROUTINES: 

NA 

8)  COKf-IONS  REFERENCED : 

NA 

9)  PURPOSE  AND  METHOD: 

ABIND  is  a dummy  routine  used  during  linking  to  account  for  entry  points 
called  by  Pallet  but  not  needed  by  the  GDD.  By  not  including  these 
Pallet  routines  core  was  saved. 
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GOD 
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1)  ROUTINE:  ALLOC  2)  MODULE:  DATA  base  3)  MACHINE;  i-A 

DEALOC  MANAGEMENT 

4)  CALLING  STATEMENT: 

CALL  ALLOC(INDEX,IPNT,NONE) 

5)  ARGUMENTS: index  - the  unpacked  index  for  the  neighborhood  to  be  retrievei 
IPNT  - returned  pointer  to  allocated  core  block  ; NONE  - returned  flag  in- 
dicating empty  neighborhood 

6)  CALLED  ByI 

SETINX 

7)  CALLS  ROUTINES: 

NA 

W COKiMONS  WERENCED: 

NA 

9)  PURPOSE  AND  METHOD: 

ALLOC  allocates  a core  buffer  large  enough  to  hold  the  longest  column  of 
the  neighborhood  being  retrieved.  DEALOC  deallocates  the  currently  al- 
located buffer.  ALLOC  compares  the  lengths  of  the  four  columns  of  the 
neighborhood  to  determine  which  is  longer.  Since  the  length  is  the  number 
of  points  in  the  column,  the  buffer  must  be  8 bytes  times  this  length.  If 
the  neighborhood  is  empty  NONE  is  set  to  indicate  a buffer  was  not  allo- 
cated. The  total  length  of  the  buffer  allocated  is  the  buffer  for  the 
points  plus  the  length  of  a Pallet  image  and  a Pallet  item  header.  This 
space  is  reserved  with  an  SVC  7.  IPNT  points  to  the  address  in  the  buffer 
into  which  the  data  should  be  read. 
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1)  ROUTINE:  atof?s  2)  MODULE:  mode  3)  MACHINE:  i-4 

4)  CALLING  STATEMENT: 

CALL  ATOFFS(MSG) 

5)  ARGUMENT^ 

MSG  - 8 element  cursor  status  array  sent  by  Pallet. 


6)  CALLED  BY: 

Pallet  when  normal  function  key  is  hit 

7)  CALLS  ROUTINES: 

NA 

8)  C0HM0NS~WERENCED: 

CURSTA,  MNUTIA 

9)  PURPOSE  AND  METHOD: 

ATOFFS  sets  the  MODE  variable  in  the  CURSTA  common  to  indicate  that  the 
system  is  in  NORMAL  mode. 
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1)  ROUTINE:  ahtof?.  2)  MODULE : data  3)  MACHINE:  1^4 

EXCEPTION 

4)  calling"  statement': 

CALL  AUTOFZ 

5)  arguments! 

NA 


6)  CALLED  BY: 

ZMTRNS 

CALL^MUTINES  : 

CLEVEL 

8)  COMOnTWERENCED: 

COMMUN,  DATBAS,  DATSTA,  MNUTIA 

9)  PURPOSE  AND  METHOD: 

AUTOFZ  determines  which  features  should  be  displayed,  deleted  or  have  a 
change  of  detail  level  after  a zoom  when  the  system  is  in  normal  mode.  For 
each  data  base  available  to  the  system  that  has  been  selected  by  the  user, 
CLEVEL  is  called  to  determine  the  detail  level  at  which  it  should  be  dis- 
played. If  this  level  is  different  from  the  current  level  SELECT  is  set 
equal  to  this  level  and  the  DELETE  flag  is  turned  on. 
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1)  ROUTINE:  autons  2)  MODULE : mode  3)  MACHINE : i-4 

4)  CALLING  STATEMENT: 

CALL  AUTONS (MSG) 

5)  ARGUMENTS: 

MSG  - 8 element  cursor  status  array  sent  by  Pallet 

6)  CALLED  ~BY: 

Pallet  when  the  automatic  function  key  is  hit 

~7)  CALLS"  ROUTINES: 

NA 

8)  COMMONS~^ERENCED: 

CURSTA,  MNUTIA 

9)  PURPOSE  AND  METHOD: 

AUTONS  sets  the  system  mode  to  automatic  by  changing  the  MODE  variable. 
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1)  ROUTINE:  autonz  2)  MODULE:  data  3)  MACHINE:  i-4 

EXCEPTION 

4)  CALLING  statement"  : 

CALL  AUTONZ 

5)  ARGUMENT^: 

NA 

6)  CALLED  W: 

ZMTRNS 

7)  CALLS  ROUTINES: 

CLEVEL 

■ 8)  COMMONS  REfERENCED: 

COMMON,  DATBAS,  DATSTA,  MNUTIA 

9)  PURPOSE  AND  METHOD: 

AUTONZ  determines  which  data  bases  should  be  displayed,  deleted  or  have  a 
detail  level  change  after  a zoom  when  the  system  is  in  automatic  mode.  For 
each  data  base  available  to  the  system,  CLEVEL  is  called  to  determine  the 
proper  detail  level.  If  the  returned  level  is  not  the  current  level,  SELECT 
is  set  equal  to  the  returned  level,  and  the  DELETE  flag  is  turned  on.  In 
addition  the  AUTOFS  flag  for  that  data  base  is  turned  on  indicating  that 
it  is  to  be  considered  a user  selected  data  base  if  the  mode  is  changed  to 
normal . 
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1)  ROUTINE:  clevel 

2)  MODULE: 

MENU  3)  MACHINE: 

Data  exception 

1-4 

4)  CALLING  STATEMENT: 

CALL  CLEVEL (I,  LEVEL) 

5)  ARGUMENTS:  i - index  into  data  bases 

LEVEL  - returns  level  at  which 

data  base  should 

be  displayed 

6)  CALLED  BY;  meslct  of 

module 

MENU  module 

; AUTONZ, 

AUTOFZ,  of  DATA 

EXCEPTION 

7)  CALLS  ROUTINES: 

NA 

8)  COMMONS  REFERENCED: 

CURSTA,  DATBAS,  DATSTA, 

, MNUTIA 

9 ) "PITRPOSOnD  method  : 


For  the  current  displayed  extent,  CLEVEL  determines  the  detail  level  at 
which  the  Ith  data  base  should  be  displayed.  LEVEL  is  set  to  0 on  entry. 
If  the  current  extent  is  not  within  range  CLEVEL  returns.  If  a data  base 
has  only  one  level  of  detail  and  falls  within  range  of  both  the  zoom  out 
and  zoom  in  thresholds  for  that  level  LEVEL  ■ 1 and  CLEVEL  returns.  The 
old  and  new  extent  values  are  compared  to  determine  whether  a zoom  in  or 
zoom  out  has  been  done.  If  a zoom  in  was  done,  CLEVEL  loops  through  the 
zoom  in  threshold  values  in  order  until  it  finds  the  level  whose  threshold 
is  greater  than  the  current  extent.  LEVEL  * 0 if  none  are  greater.  For 
a zoom  out,  the  zoom  out  thresholds  are  examined  in  reverse  order  starting 
with  the  highest  detail  level.  LEVEL  is  set  to  the  first  detail  level 
whose  threshold  is  less  than  the  current  extent. 
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1)  ROUTINE:  CHARLV  2)  MODULE:  MENU  3)  MACHINE:  1-4 

4)  CALLING  STATEMENT: 

CALL  CHARLV (I, I CHAR) 

5)  ARGUMENTS : T-f  paMirg  data  base  index  ,ICHAR  - a 2 character  string  returned 
by  CHARLV 

6)  CALLED  ByI 

MENUUP,  MESLCT 

7)  CALLS  ROUTINES: 

NA 

8)  COMMDNS~REFERENCED: 

COMMUN,  DATBAS,  DATSTA,  MNUTIA 

9)  PURPOSE  AND  METHODT 

For  a given  data  base,  CHARLV  returns  a two  character  string  representing 
the  number  of  the  detail  level  at  which  the  Ith  data  base  is  currently 
displayed,  or  will  be  displayed  when  the  menu  is  entered. 
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1)  ROUTINE:  CLMERS  2)  MODULE: 

DATA  BASE  3)  MACHINE:  1-4 

MANAGEMENT 

4)  CALLING  STATEMENT: 

CALL  CLMERS (I, ISTART, lend) 

5)  ARGUMENTS : T _ index*  ISTART  - first  column  of  neighborhood  tr 
be  erased(l,2,3  or  4)  ;IEND  - last  column  of  neighborhood  to  be  erased  (1,2,3 
or  4) 

6)  CALLED  BY: 

MDISP,  RPCOL 

7)  CALLS  ROUTINES: 

NAME“ofTUn ERASE  of  Pallet 

8)  COMMONS  REFERENCED: 

DATBAS,  DATSTA,  ERASE, TREES 

9}  PURPOSE  AND  METHOD: 

CLMERS  enters  the  Pallet  names  of  columns  of  neighborhoods  to  be  erased  into 
the  ERSAR  array.  If  the  ERSAR  array  is  filled,  CLMERS  calls  Pallet  to 
erase  the  entries  already  made.  For  the  data  base  specified  by  1,  CLMERS 
constructs  the  name  of  any  or  all  columns  of  the  data  base  and  enters  them 
into  the  ERSAR  array.  Which  columns  are  entered  is  determined  by  ISTART 
and  lEND.  There  are  four  columns  in  a neighborhood;  the  block  number  of 
the  head  of  each  column  is  stored  in  the  COL  array  in  order  from  left  to 
right.  The  range  of  values  for  ISTART  and  lEND  is  1 to  4.  All  columns  of 
a neighborhood  between  and  inclusive  of  ISTART  and  lEND  are  erased.  If 
the  column  represented  by  an  element  of  the  COL  array  is  erased,  that 
element  of  COL  is  set  to  0. 
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1)  ROUTINE:  CRTOMP  2)  MODULE:  FUNCTION  3)  MACHINE:  1-70 

REQUEST 

~4)  CALLING  STATEMENT: 

CALL  CRTOMP (XCURA,  YCURA,  XCURM,  YCURM) 

5)  arguments . « X absolute  position  of  cursor  : YCURA  - v absolute 
position  of  cursor;  XCURM,  YCURM  - returned  map  coordinates  of  cursor. 

6)  called"^ 

SETMSG 

7)  CALLS  ROUTINES: 

NA 

8)  COMi'lONS'WERENCED: 

STATUS 

9)  PURPOSE  AND  METHOPl 

CRTOMP  translates  the  absolute  position  of  the  cursor  on  the  screen  to 
its  position  on  the  displayed  map  in  the  map  coordinate  system.  It  cal- 
culates the  distance  the  cursor  is  from  the  absolute  center  of  the  display. 
This  distance  is  scaled  by  the  previous  extent  value  and  added  to  the 
previous  center  point.  (The  previous  extent  and  center  are  used  since  the 
cursor  was  positioned  by  the  user  before  the  translate  or  scale  he  requested 
was  done.) 
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1)  ROUTINE;  CURPOS  2)  MODULE:  MENU 

3)  MACHINE; 

1-4 

4)  CALLING  STATEMENT: 

CALL  CURPOS (IX,  lY,  IDB,  lACT) 

5)  ARGUMENTS: IX-  X-position  of  cursor  in  absolute  coordinates :IY-Y-posit ion 
of  cursor  in  absolute  coordinates;  IDB-macro  expansion  index  returned  by 
CURPOS;  lACT-function  returned  by  CURPOS 


6)  CALLED  BY: 

MESLCT 

TTcalls  RQuTTriESl 

NA 

8)  COMMONS'WeRENCED: 

MACRO,  MENCON,  MNUTIA 

9)  PURPOSE  AND  METHOD: 

CURPOS  determines  which  line  of  the  menu  the  cursor  is  opposite  and  returns 
this  in  IDB;  it  also  determines  which  function  the  cursor  is  under  and  re- 
turns this  in  lACT.  To  find  out  which  line  the  cursor  is  opposite,  the 
top  and  bottom  coordinates  of  each  line  are  compared  to  lY,  The  line  into 
which  lY  falls  becomes  the  index  into  the  FETPOS  array.  For  each  line  on 
the  screen  FETPOS  contains  the  index  into  the  macro  expansion  arrays.  IDB 
is  set  equal  to  this  index.  To  determine  which  function  the  cursor  is  under 
IX  is  compared  to  the  x-coordinates  of  the  left  and  right  side  of  each 
column.  If  IX  does  not  fall  into  a column,  lACT  * -1.  Otherwise  it 
equals  ON  or  OFF. 
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1)  ROUTINE:  cursta  2)  MODULE:  data  3)  MACHINE:  1-4 

EXCEPTION 

4)  CALLING"STATEMENT: 

CALL  CURSTA (NAME , TYPE , LENGTH , STAT) 

5)  ARGUMENTS:  NAME. type. LENGTH  - name  of  routine  to  receive  the  message, 
type  of  message  and  length  of  message  in  bytes. 

STAT  - current  display  status  array 

6)  CALLED^yI  " 

TRANTP,  ZOKTOP  via  MP 

7)  CALLS  ROUTINES: 

ZMTRNS 

8)  COMMONS~‘WeRENCED: 

CURSTA 

9)  PURPOSE  AND  METHOD: 

CURSTA  copies  the  new  current  display  status  array  sent  by  the  Function 
Request  module  into  the  CURSTA  common.  Thus,  both  the  1-4  and  1-70  now 
have  the  current  values  for  the  center  point  and  extent.  After  copying  the 
new  values,  CURSTA  calls  ZMTRNS  to  test  for  data  exception  conditions  caused 
by  either  a translate  or  zoom. 
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1)  ROUTINE:  ermsg  2)  MODULE:  data  base  3)  MACHINE:  1-4 

MANAGEMENT 

4)  CALLING  STATEMENT: 

CALL (MSG, LEN.NUM) 

~5)  ARGUMENTS:  MSG  - message  to  be  printed;  LEN  - number  of  characters  in 
message;  NUM  - integer  to  be  printed  with  message 


6)  CALLED  BY: 

RETREV,MSEND 

'7  )'CALL^ 'ROUTINES": 

NA 

8)  COMMONS  '^ERENCED: 

NA 

9)  PURPOSE  AND  METHOD: 

ERMSG  prints  error  messages  to  the  teletype.  MSG  is  moved  to  an  output 
buffer.  NUM  is  converted  to  ASCII  and  also  stored  in  the  output  buffer. 
The  buffer  is  printed  by  an  SVC  call. 
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1)  ROUTINE:  grdcen  2)  MODULE exception  3)  MACHINE:  1-4 

DATA  BASE  

MANAGEMENT 

~4)~ CALLING  STATEME'NT" 

CALL  GRDCEN ( I, LEV,NGX,NGY) 

5)  ARGUMENTS:  I - data  base  index 

LEV  - level  for  which  neighborhood  is  being  defined 

NGXjNGY  - coordinates  of  grid  point  closest  to  center  point  of  display. 

6)  CALLED  BY:  mTRANS  in  DATA  EXCEPTION 

MDISP  in  DATA  BASE  MANAGEMENT 

7)  CALLS  ROUTIMES: 

NA 

8)  COMMONS  WERENCED: 

CURSTA,  DATBAS,  DATSTA,  MAP 

9)  PURPOSE  AND  METHOD": 

GRDCEN  calculates  the  grid  point  of  a given  data  base  at  a given  level  that 
is  closest  to  the  center  point  of  the  display.  The  X and  Y coordinates  of 
the  grid  point  are  calculated  in  a similar  manner;  for  a given  data  base 
and  level,  the  width  of  the  blocks  into  which  it  is  divided  is  known.  The 
required  grid  point  is  the  grid  point  that  is  no  more  than  half  this  dis- 
tance away  from  the  center  point.  So,  the  distance  between  the  edge  of 
the  entire  map  and  the  center  point  is  calculated  and  then  increased  by  half 
a block,  width.  This  quantity  is  divided  by  a block  width.  The  correct 
coordinate  is  the  quotient;  forget  the  remainder.  The  coordinate  is  then 
checked  to  be  sure  it  is  no  less  than  2 blocks  from  an  edge.  If  it  is, 
it  is  changed  so  that  the  neighborhood  it  defines  does  not  fall  outside 
the  mapped  area. 
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1)  ROUTINE : imptab  2)  MODULE itnittai.t/atton  3)  MACHINE : 1-70 

1-4 

4)  CALLING  STATEMENT: 

NA 

5)  ARGUHENTT: 

NA 

6)  CALLED  bT: 

IMPINT  of  MP 

7)  CALLS  ROUTINES: 

NA 

8)  COMMONS  REFERENCED: 

NA 

9)  PURPOSE  AND  METHOD: 

IMPTAB  is  the  table  which  tells  MP  which  routines  are  to  receive  which 
message  types.  There  are  two  such  tables  for  the  GDD;  one  to  be  linked  on 
the  70  and  one  to  be  linked  on  the  4. 
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1)  ROUTINE:  INIT 

2)  MODULE :INITIALIZATI0N  3)  MACHINE: 

4)  CALLING  STATEMENT: 
NA 

5)  ARGUMENTS: 

NA 

6)  CALLED  BY : operating  system  start  command  as  the  entry  point  into  the 

GDD 


7)  CALLS  ROUTINES :rrdcom,  mdisp  of  gdd;  drmbfa,  on,  clear,  display,  find  of 


Pallet;  IMPINT,  SEND,  MP 

of  MP;  SETSAV,  CHKSAV,  INTFMP  of  FMP 

8)  COmONS  REFERENCED: 
FILE,  MACRO,  MAP,  MENCON, 

COLORS,  COMMUN,  CURSTA,  DAT BAS , DATSTA,  ERASE,  FAC, 
, MNUTIA,  TREES 

9)  PURPOSE  AND  METHOD: 

INIT  initializes  Pallet,  MP  and  FMP . Using  the  Pallet  ON  routine  it  assigns 
function  buttons  to  the  routines  that  should  be  invoked  when  that  button  is 
pushed.  It  sends  a message  containing  the  initial  center  point  and  extent, 
magnification  factors  and  image  names  to  the  STATIN  routine  residing  on  the 
1-70  to  initialize  that  side  of  the  GDD.  It  then  displays  an  empty  "world” 
image  to  set  the  proper  coordinate  system  in  Pallet,  sets  the  current  pointer 
and  calls  MDISP  to  display  the  initial  data  bases  specified  by  the  initial 
value  of  the  COMMUN  common.  Finally  MP  is  called  to  wait  for  messages. 
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1)  ROUTINE:  inmve 

2)  MODULE:  database  3)  MACHINE:  1-4 

MANAGEMENT 

4)  CALLING  STATEMENT: 

CALL  I.JMVE(BUF(IPOS)  , INDEX) 

5)  ARGUMENTS ;buf  (IPOS) 

INDEX  returned  unpacked 

Pointer  to  index  entry  read  from  drum; 
index  entries 

6)  CALLED  BY: 
RINDEX 

7)  CALLS  ROUTINES: 

NA 

8)  COMMONS  REFERENCED: 

NA 

9)  PURPOSE  AND  METHOD T 


INMVE  unpacks  four  index  entries  as  they  are  stored  on  drum  into  a FORTRAN 
integer  array.  For  each  index  entry,  a halfword  containing  the  drum  address 
and  a halfword  containing  the  length  are  required.  These  are  packed  into 
a fullword  on  drum,  INMVE  unpacks  each  halfword  into  a FORTRAN  integer. 
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1)  ROUTINE:  mdisp 

2)  MODULE:  data  rase  3)  MACHINE:  t-A 

M^NAGEMENT 

4)  CALLING  STATEMENT: 
CALL  MDISP (IFORCE) 

5)  ARGUMENTS ; 

IFORCE  - initially  0;  returned  as  a 1 if  MDISP  has  changed  the  display 


6)  CAUED_^:  module; 

ZMTRNS.MTRANS  of  DATA  EXCEPTION  module, INIT  of  INITIALIZATION  module 


7)  CALLS  ROUTINES:  CLMERS,  GRDCEN,  SETINX,  REDSND,  DEALOC  of  GDD 

ERASE  of  Pallet 


8)  COMMONS  REFERENCED: 
COMMUN,  DATBAS,  DATSTA, 

ERASE,  MNUTIA,  TREES 

9)  PURPOSE  AND  METHOD: 

MDISP  erases  and  displays  neighborhoods  of  feature  data  bases  as  dictated 
by  settings  of  the  SELECT  and  DELETE  arrays.  MDISP  first  runs  through 
the  DELETE  array  and  makes  an  entry  in  the  ERSAR  array  for  each  column  of 
each  neighborhood  that  is  flagged  for  deletion.  Pallet  is  then  called  to 
erase  the  data  from  the  display  tree.  Now  the  SELECT  array  is  examined. 

Each  non- zero  entry  in  the  SELECT  array  is  the  level  at  which  a data  base 
should  be  displayed.  CRDCEN  calculates  the  grid  center  of  the  neighbor- 
hood. SETINX  reads  the  index  for  the  neighborhood.  For  each  column,  REDSND 
is  called  to  read  the  column  of  data  from  drum  and  send  it  to  Pallet. 
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1)  ROUTINE:  dbpos  2)  MODULE:  menu  3)  MACHINE:  i_4 

4) ~  C^LIN^  SfATEWNT^  ~~~~~ 

CALL  DBPOS (I, Y) 

5)  ARGUMENTS:  l - data  base  index 

Y - returned  value  of  Y coordinate  of  the  Itn  data  base  in 
menu. 

6)  called  byT 

MENUUP,  WRTCHR 

TTcall^ RQUTTnIs': 

NA 

8)  COMMONS ^W~ERENCED: 

DATBAS,  MACRO,  MNUTIA 

9)  PURPOSE  AND  METHOD: 

Given  a specific  data  base,  the  1th  data  base,  DBPOS  returns  the  Y coordin- 
ate in  the  map  coordinate  system,  of  the  line  in  the  menu  that  represents 
that  data  base.  The  array  POSFET  has, for  each  data  base, the  line  number  of 
that  feature  data  base  on  the  screen.  By  multiplying  this  line  number  by 
24  (24  dots  in  the  Y axis  of  a character  matrix)  and  subtracting  it  from 
480  (the  Y coordinate  of  the  top  of  the  screen)  the  Y coordinate  of  the 
line  of  the  feature  data  base  is  calculated. 
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1)  ROUTINE:  menuup  2)  MODULE:  MENU 

3)  MACHINE:  i-4 

4)  CALLING  STATEMENT: 

MENUUP (MSG) 

S)  ftJl^.^!l^NT_S_.  _ eight  element  cursor  status  array  sent  by  Pallet  when 

a routine  is  invoked  by  a Pallet  ON  condition. 

6)  CALLED  BY: 

Pallet  ON  condition  when  menu  function  key  is 

hit. 

7)  CALLS  ROUTINES:  CHARLV,  DBPOS,  NAME,  CHAR, 
OPENI,  CHAR,  CLEAR,  REFRSH  of  Pallet 

SETSTA, MDISP  of  GDD;  DISPLY, 

8)  COMMONS  REFERENCED:  COLORS,  CURSTA,  DATBAS, 

DATSTA,  MENCON,  MNUTIA.TREES 

9)  PURPOSE  AND  METHOD: 

MENUUP  displays  the  menu  image  and  creates  and  displays  an  image  telling 
the  status  of  the  system  and  feature  data  bases.  If  the  menu  is  already 

being  displayed  when  MENUUP  is  invoked,  the  MDISP  routine  is  called  to 
process  the  user's  menu  requests. 


143 


G D D 


PROGRAM  SUMMARY  SHEET 


1)  ROUTINE:  meslct  2)  MODULE:  menu  3)  MACHINE:  i-4 

4)  CALLING  STATEMENT: 

CALL  MESLCT (MSG) 

5)  ARGUMENTS:  MSG  - eight  element  cursor  status  array  sent  by  Pallet  when 
a routine  is  invoked  by  a Pallet  ON  condition. 


6)  CALLED  BY: 

Pallet  ON  condition  when 

L select 

function  button  is  hit 

TTTALLS  ROUTINES: 
CURPOS,  RESPON,  SETCHR, 

CLEVEL , 

CHARLV 

8)  COMMONS  RE  I' E REN  CEO: 

COLORS , 

COMMUN,  DATBAS,  DATSTA,  MACRO,  MENCON, 

MNUTIA 

9 ) ~ PUrPOS  E AND  METHOD  T 


MESLCT  determines  which  feature  in  the  menu  has  been  selected  by  the  user 
It  determines  which  function  was  requested  and,  after  testing  for  error 
conditions,  makes  the  proper  entries  into  the  SELECT  and  DELETE  arrays  of 
the  COMMUN  common.  The  CURPOS  routine  is  first  called  to  calculate  the 
feature  and  function  requested.  An  error  message  is  displayed  if  the 
cursor  is  not  properly  aligned  with  one  or  the  other.  The  feature  is  ex- 
panded to  a list  of  features  via  the  macro  capability.  In  the  case  of  an 
ON  function,  for  each  feature  in  the  expansion,  CLEVEL  is  called  to  cal- 
culate the  proper  detail  level  for  the  current  extent.  This  is  placed  in 
the  SELECT  array.  In  the  case  of  an  OFF  function,  error  conditions  are 
checked,  and  DELETE  set  non-zero  for  each  feature  in  the  macro  expansion. 
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1)  ROUTINE:  msend  2)  MODULE:  data  base  3)  MACHINE:  1-4 

MANAGEMENT 

4)  CALLING  STATEMENT: 

CALL  MSEND (NAME , P .TYPE , BUF , LENGTH , ERROR) 

5)  ARGUMENTS : NAME  -name  of  routine  to  receive  msg;  P-priority  of  msg 
TYPE-message  type;  BUF-address  of  rasg ; LENGTH-length  of  col.  of  data 
ERROR-MP  error  return  code 

6)  CALLED  BYI 

REDSND 

TTCALLS  ROUTINES: 

SEND  of  MP  ERMSG  of  Pallet 

erCOMf'lONS  REFERENCED: 

NA 

9)  PURPOSE  AND  METHOD: 

MSEND  sets  up  the  calling  sequence  to  MP  and  calls  MP.  It  is  written  in 
assembly  to  allow  the  proper  calculation  of  the  length  of  the  buffer  con- 
taining a column  of  data.  The  NAME,  PRIORITY,  TYPE,  BUFFER  address  are 
copied  into  the  SEND  parameter  block.  The  length  of  the  message  is  then 
calculated  from  the  index  entry  for  the  column  being  sent  and  the  length 
of  the  headers.  SEND  is  then  called  and  error  conditions  tested  for. 
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1)  ROUTINE:  mtrans  2)  MODULE : data  3)  MACHINE:  i-a 

EXCEPTION 

4)  CALLING  STATEMENT: 

CALL  MTRANS q FORCE) 

5)  arguments  gg^  to  0,  it  is  set  to  1 by  the  routine 

iffilSP  if  the  display  has  been  changed. 

6)  CALLED ~b7: 

ZMTRNS 

1)  CALLS  R^TTnES": 

GRDCEN,  MDISP,  RPCOL 

8)  COMMONS~"REfERENCED: 

CO^UN,  DATBAS,  DATSTA,  MNUTIA 

9)  PURPOSE  AND  METHOD: 

MTRANS  determines  which  data  bases  need  a new  neighborhood  due  to  a 
translation  of  the  center  point.  It  either  calls  for  the  replacement  of 
an  entire  neighborhood  or  simply  one  or  two  columns  of  the  neighborhood. 

For  each  data  base  that  is  currently  displayed,  GRDCEN  is  called  to  de- 
termine the  (X,Y)  coordinates  of  the  grid  point  closest  to  the  center  point. 
These  X,Y  coordinates  are  compared  to  the  old  value.  If  the  Y coordinates 
are  different,  SELECT  is  set  equal  to  the  current  level  and  the  DELETE  flag 
turned  on  to  force  a neighborhood  change.  If  only  the  X coordinate  is 
different  RPCOL  is  called  to  change  only  one  or  two  columns  of  the 
neighborhood. 
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1)  ROUTINE:  NAME  2)  MODULE:  3)  MACHINE:  1-4 

DATA  BASE  MANAGEMENT 

4 ) CALLING  S T~AfE~MENT~: 

CALL  NAME (FIRST,  SEC,RNAME) 

5)  “ARGUMENTS':  ! I ^ ^ 

— : FIRST  - 1st  four  characters  of  name 

SEC  - 2nd  four  characters  of  name 

RNAME  - 8 character  name  returned 

6)  CALLED_^:  mENUUP,  WRTCHR  of  menu  module;  CLMERS , REDSND  of  DBM  module 

7)  CALLS  ROUTINES:  ■ 

NA 

8)  COMMONS  WeRENCED: 

NA 

9)  PURPOSE  AND  METHOPl 

NAME  constructs  an  8-character  Pallet  name  from  two  four  character  strings. 
The  two  strings  are  simply  concatenated  and  returned  in  the  RNAME  argument 
which  must  be  of  dimension  2 in  the  calling  program. 
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1)  ROUTINE:  newcen  2)  MODULE : FUNCTION  3)  MACHINE:  1-70 

REQUEST 

4)  CALLING  STATEMENT: 

CALL  NEWCEN ( FAC, OXCENM,  OYCENM,  XCENM,  YCENM) 

5)  ARG^LIMENTS  f AC  - magnification  factor 

OXCENM, OYCENM  - previous  center  of  map  in  map  coordinates 
XCENM, YCENM  - returned  new  center  in  map  coordinates 

6)  CALLED  b71 

ZOKTOP 

7)  CALLS  ROUTINES: 

NA 

8)  COMHONrWERENCED: 

STATUS 

9)  PURPOSE  AND  METHOD: 

NEWCEN  calculates  the  new  center  of  the  displayed  map  when  a zoom  is  re- 
quested. Since  the  point  designated  by  the  cursor  remains  stationary 
when  a zoom  is  done,  there  is  an  implied  translate  in  any  zoom.  The  new 
center  is  calculated  as  the  difference  between  the  cursor  position  in  map 
coordinates  and  the  difference  between  the  cursor  position  and  old  center 
point  multiplied  by  the  magnification  factor,  i.e,,  XCURM  - (XCURM  - OXCENM) 
*FAC 
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, 1)  ROUTINE:  redcom 

2)  MODULE:  initializations)  MACHINE:  i_4 

4)  CALLING  STATEHENT: 

CALL  REDCOM 

5)  ARGUMENTS: 

NA 

6)  CALLED  BY; 

INIT 

7)  CALLS  ROUTINES; 

NA 

8)  COMMONS  REFERENCED; 

NA 

9)  PURPOSE  AND  METHOD? 


REDCOM  reads  the  initial  values  of  all  common  variables  into  core  from  the 
tape  created  by  the  stand  alone  program,  SETUP.  It  first  rewinds  the  tape 
on  logical  unit  6,  and  reads  a 4 byte  record  containing  the  address  of  the 
first  common  location.  This  address  is  then  used  as  a parameter  to  the 
next  SVC  tape  read  which  reads  the  next  record  into  core  starting  at  the 
address  in  the  first  record. 
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ROUTINE:  REDSND  2)  MODULE:  data  base  3)  MACHINE:  1-4 

MANAGEMENT 

4)  CALLING  STATEMENT: 

CALL  REDSND (I , LEVEL , INDEX , IPNT , ICOL) 

~Sy  AR6UME NTSl  i - data  base  index  ; LEVEL  - detail  level  to  be  displayed; 
INDEX  - index  data;  IPNT  - points  to  core  buffer;  ICOL  - column  of  neighbor- 
hood to  be  displayed 

6)  CALLED ~BY: 

MDISP,  RPCOL  • 

7)  CALLS  ROUTINES: 

MSEND,  NAME,  RETREV,  SETBF,  SETITM 

~S)  COMMONS  REFERENCED: 

DATBAS,  DATSTA,  TREES 

9)  PURPOSE  AND  METHOOl 

REDSND  reads  a column  of  data  from  drum,  sets  up  Pallet  headers  for  the 
data  and  sends  it  to  Pallet.  RETREV  is  called  to  read  the  ICOL  column, 
of  data  into  core  starting  at  location  IPNT.  SETBF  and  SETITM  add 
image  and  item  headers  required  by  Pallet  to  the  data.  MSEND  transmits  the 
data  to  the  1-70  using  MP. 
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1)  ROUTINE:  respon  2)  MODULE:  menu  3)  MACHINE:  i_4 

4)  CALLING  STATEMENT: 

CALL  RESPON(ICHAR,LEN,ICOLOF5 

5)  ARGUMENTS:  ICHAR  - character  string 

LEN  “ length  of  character  string 
ICOLOR  - color  of  character  string 

6)  CALLED  B?: 

MESLCT 

7)  CALLS  ROUTINES: 

ERASE.  OPENI,  CHAR.  DISPLY  of  Pallet 

8)  COWONS~REF'ERENCED: 

MENCON,  MNUTIA,  TREES 

9)  PURPOSE  AND  METHOD: 

RESPON  is  used  to  display  responses  to  the  user  whenever  a menu  function 
has  been  requested.  It  first  erases  the  old  response  image,  and  then  opens 
a new  one.  The  ICHAR  character  string  is  placed  in  this  image.  The 
image  is  then  displayed  by  attaching  it  to  the  status  image. 
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1)  ROUTINE:  retrev  2)  MODULE:  data  base  3)  MACHINE:  1-4 

MANAGEMENT 

'^CALLING  STATEMENT: 

CALL  RETREV(IFILE,INDEX(I,ICOL) ,IPNT,NONE) 

5)  ARGUMENTS : IFILE-data  base  file  number;  INDEX (I ,ICOL)- index  info rma tion 
for  ICOLth  column  of  data  base;  IPNT-address  into  which  data  should’  be 
read  ; NONE-returned  flag  set  non  zero  if  column  is  empty 

6)  CALLED  ByI  ~~~~ 

REDSND 

7)  CALLS  ROUTINES: 

ERMSG 

8)  COMMONS  ~^ERENCED: 

NA 

9)  PURPOSE  AND  METHOD:  ^ 

RETREV  reads  a column  of  data  from  drum  into  core.  The  block  address  of 
the  ICOL  column  of  data  is  taken  from  the  index  and  used  by  the  DRUM 
utility  to  find  the  data  on  drum.  DRUM  reads  the  number  of  points  specified 
by  the  index.  Once  read,  the  starting  location  of  the  data  within  the 
first  block  read  from  the  drum  is  calculated.  (The  low  order  four  bits  of 
the  length  entry  in  an  index  entry  identifies  which  point  in  the  drum  block 
is  the  first  point  for  the  column  of  data  read.)  IPNT  is  returned  as  this 
location  minus  the  24  byte  header  required  by  PALLET  . A is  stored  at  the 
end  of  the  data  as  a PALLET  delimiter. 
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ROUTINE:  RiNDEX  2)  MODULE:  data  base  3)  MACHINE:  1-4 

MANAGEMENT 

4)  CALLING"  STATE~M~ENT^ 

CALL  RINDEX(I,LFTTOP, LEV, INDEX) 

5)  ARGUMENTS:  I - data  base  ind^  ; LFTTOP  - block  number  of  left  top  block 
of  neighborhood ; LEV  - level  at  which  data  base  is  to  be  displayed 

INDEX  - returned  index  value  for  neighborhood 

6)  CALLED~W: 

SETINX 

' 7)  CALLS  ROUTINES: 

ERMSG,  INMVE  of  GDD;  DRUM  - FORTRAN  utility 

8)  COMMONS  REFERENCED: 

DATBAS,  DATSTA 

9)  PURPOSE  AND  METHODi 

RINDEX  reads  the  index  entries  for  each  of  the  four  columns  of  a neighbor- 
hood having  LFTTOP  as  the  top  left  block.  Each  index  entry  is  a fixed  4 
bytes  long.  The  block  address  in  the  index  file  of  a specific  index  entry 
is  four  times  LFTTOP  divided  by  128  bytes  per  block.  In  case  the  entry 
wanted  is  at  the  very  end  of  the  calculated  block,  over  a block  is  read  to 
insure  all  four  entries  are  read  into  core.  The  actual  byte  position  in 
the  block  is  calculated  as  an  index  in  a FORTRAN  array.  INMVE  is  called 
to  unpack  the  index  data  into  a FORTRAN  integer  array. 
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1)  ROUTINE:  rpcol  2)  MODULE : data  BASE  3)  MACHINE:  1-4 

MANAGEMENT 

4)  CALLING  STATEMENT: 

CALL  RPCOL(I,NGX,NGY,IFORCE) 

51  ARGUMENTS : ^ ] ! i i T!  '■  I T"! 

' — I - data  base  index;  NGX.NGY  - coordinates  of  new  grid  center 

IFORCE  - set  to  1 if  RPCOL  chahges  display 


6)  CALLED  BY: 

MTRANS 

7)  CALLS  ROUTINES:  ^ 

CLMERS,  SETINX,  REDSND,  DEALOC 

8)  C0MM0NS~WERENCED: 

DATBAS,  DATSTA,  ERASE,  TREES 

9)  PURPOSE  AND  METHOD: 

RPCOL  erases  and  displays  partial  neighborhoods  when  a translation  does  not 
require  an  entirely  new  neighborhood.  It  first  calculates  which  one  or 
two  columns  need  to  be  etased  ds  a function  of  the  difference  between  the 
old  and  new  X grid  coordinate.  CLMERS  make  the  necessary  entries  into  the 
ERSAR  array.  Next,  the  entries  in  the  COL  atray  ate  rotated  to  maintain 
the  left  to  right  order  Of  the  columns  in  the  data  base.  Those  elements 
of  COL  cleared  by  the  rotate  Will  be  filled  by  the  block  numbers  of  the 
new  columns  and  order  will  be  maintained.  SETINX  is  called  to  retrieve 
the  index  for  the  new  neighborhood.  For  each  column  that  needs  to  be 
displayed,  REDSND  reads  the  data  and  sends  it  to  Pallet. 
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1)  ROUTINE:  setbf  2)  MODULE:  data  base  MACHINE: 

MANAGEMENT 

4) '  CALLING  STATEMENT: 

CALL  SETBF(TREE, WHERE, REFRSH,IPNT) 

5)  ARGUMENTS « -Pallet  device  to  which  Image  should  be  attached  ; 
WHERE-name  of  the  node  to  which  image  should  be  attached;  REFRSH-ref resh  typ< 
IPNT-points  to  where  header  should  be  stored. 

6)  CALLED  ^ 

REDSND 

7)  CALLS  ROUTTTIe'S: 

NA 

8)  CW10NS~WeRENCED: 

NA 

9)  PURPOSE~AND  "method" 

SETBF  creates  a Pallet  image  header  for  a column  of  data  about  to  be  sent 
to  Pallet  for  display.  The  TREE,  WHERE  and  REFRSH  parameters  are  stored  in 
order  in  successive  locations  starting  at  address  IPNT.  IPNT  is  returned 
pointing  to  the  next  free  location.  1 
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1)  ROUTINE:  SETINX  2)  MODULE:  database  3)  MACHINE:  l- A 

MANAGEMENT 

4)  CALLING  STATEMENT: 

CALL  SET1NX(1, LEVEL, NGX.NGY.LFTTOP, INDEX, IPNT, NONE) 

5)  ARGUMENTS:  I - data  base  index;  LEVEL  - level  ^or  display;  NGX.HSV  - grlc 

center  coordinates,  LFTTOP  - returned  block  number  of  left  top  block  in 
neighborhood;  IPNT-returned  address  of  cord  block  allocated  for  data;  NONE  - 
returned  flag  . , . . . ..  .. ...  , 

6)  CALLED  BY: 

MDISP,  RPCOL 

7)  CALLS  ROUTINES: 

TOPLFT,  RINDEX,  ALLOC 

8)  COmONSWERENCED: 

NA 

9)  PURPOSE  AND  METHOD: 

SETINX  sets  up  the  retrieval  of  a neighborhood  of  columns  from  the  drum. 

It  calculates  the  proper  entry  into  the  index,  reads  the  index  and  then 
allocates  a core  buffer  into  which  a column  of  data  can  be  read,  NOME  is  set 
non-zero  if  the  neighborhood  contains  no  data. 
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1)  ROUTINE:  SETITM  2)  MODULE : data  base  3)  MACHINE:  I-A 

MANAGEMENT 

4)  CALLING  STATEMENT: 

CALL  SETITMdTYPE, N, COLOR, NAME, IPNT)  

5)  ARGUMENTS : ITYPE-data  type,  1 points , 2 lines;  N-number^  of  points  in  ^ tem 
COLOR- CO lor  of  item;  NAME-name  of  ITEM 


6)  CALLED  BY: 

REDSND 

7)  CALLS  ROUTINES:  • 

NA 

~8)  ~comiWs~Werenc^ 

NA 

'9)~PURP0SE~AND  METHOD: 

SETITM  constructs  an  item  header  for  a column  of  data  about  to  be  displayed. 
ITYPE,  N,  COLOR  and  NAME  are  stored  in  successive  locations  starting  at 
location  IPNT.  This  item  header  Immediately  follows  the  image  header  and 
Immediately  precedes  the  data  Itself. 
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1)  ROUTINE:  SETMSG  2)  MODULE  FUNCTION  3)  MACHINE:  1-70 

REQUEST 

4)  CALLING  STATEMENT:  ~ 

CALL  SETMSG (MSG) 

5)  ARGUMENTS  ^ plpment:  cursor  status  array  sent  by  PALLET  when  a 

function  key  is  hit. 


6)  CALLED  BY: 

ZOMTOP,  TRANTP 

7)  CALLS  ROUtiHES: 

CRTOMP 

8)  CQMMONrWERENCED: 

STATUS 

9)  PURPOSE  AND  METH651 

SETMSG  sets  the  display  Status  array,  CURSTA ^for  shipment  to  the  Data 
Exception  module.  The  CURSTA  array  contains  16  elements,  8 for  current 
values  and  8 for  previous  values.  When  called,  SETMSG  copies  the  current 
values  to  the  previous  value  locations.  The  new  absolute  cursor  position 
is  set  in  CURSTA,  converted  to  map  coordinates  and  also  stored  in  CURSTA. 
(The  new  center  point  and  extent  are  set  by  the  ZOMTOP  and  TRANTP  routines 
after  calling  SETMSG.) 
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1)  ROUTINE:  SETSTA  2)  MODULE:  menu  3)  MACHINE:  i_4 

4)  CALLING  STATEMENT: 

CALL  SETSTA(ICHAR,LEN) 

5)  ARGUMENT^  I CHAR  - character string  to  be  displayed  in  status  line  oT 
menu  ; LEN  - length  of  character  string 

6)  CALLED  BY: 

MENUUP 

7 ^ CALL^  ROUTINES: 

CHAR  of  Pallet 

8)  COMMONS  WERENCED: 

COLORS,  MENCON 

9)  PURPOSE  AND  METHOPl 

SETSTA  enters  the  character  string  ICHAR  into  the  status  image  using  the 
CHAR  command  of  Pallet. 
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1)  ROUTINE:  STATCS  2)  MODULE : mode  3)  MACHINE:  i-4 

4)  CALLING  STATEMENT: 

CALL  STATCS  (MSG) 

5)  arguments! 

MSG  - 8 element  cursor  status  array  sent  by  Pallet 

6)  CALLED  BY: 

Pallet  when  special  mode  function  key  is  hit. 

7Y  calls  ROUTINES: 

NA 

8)  COtWNrREFERENCED: 

MNUTIA,  CURSTA 

9)  PURPOSE  AND  METHOD: 

STATCS  changes  the  system  mode  to  special  by  setting  the  MODE  variable. 
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1)  ROUTINE:  STATIN  2)  MODULE:  TNTTTAi.TZATinN  3)  MACHINE:  i_7o 

4)  CALLING  statement! 

CALL  STATIN  (NAME,  TYPE,  LENGTH,  STAT> 

5)  ARGUMENTS:  NAME.  TYPE.  LENGTH  - name  of  routine  to  receive  the  message, 
type  of  message  and  length  of  message  in  bytes. 

STAT  - initial  values  for  the  STATUS  and  DATA  commons. 

6)  CALLED  BY: 

INIT  via  MP 

7)  CALLS  ROUTINES: 

NA 

8)  COMMONS~REFERENCED: 

DATA,  STATUS 

9)  PURPOSE  AND  METHOD: 

STATIN  initializes  the  two  commons,  DATA  and  STATUS,  that  reside  on  the 
1-70.  The  array  STAT  is  filled  with  the  proper  information  by  INIT,  which 
sends  it  via  MP  to  STATIN.  STATIN  then  copies  the  values  received  into 
the  two  common  areas. 
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1)  ROUTINE:  TOPLFT  2)  MODULE:  DATA  BASE  3)  MACHINE:  i-A 

MANAGEMENT 

4)  CALLING  STATEMENT: 

CALL  TOPLFT (I, LEVEL, NGX,NGY,LFTTOP) 

5)  ARGUMENTS:!  - data  base  index;  LEVEL  - 
NGX,NGY-grid  point  center  of  neighborhood; 
number  of  top  left  block  in  neighborhood 

■ detail  level. of  data  base; 
LFTTOP  - returned  value  of 

6)  CALLED  BY: 
SETINX 

7)  CALLS  ROUTINES: 

NA 

8)  COMMONS  REFERENCED: 

DATBAS,  DATSTA 

9)  PURPOSE  ANO  MeThWT 


TOPLFT  calculates  the  block  number  of  the  top  left  block  of  a sixteen  block 
neighborhood  having  a grid  point  center  of  (NGX,NGY).  The  block  number  is 
returned  as  if  the  blocks  were  numbered  from  left  to  right  starting  in  the 
bottom  row. 
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1)  ROUTINE:  trantp  2)  MODULE:  function  3)  MACHINE:  i_7o 

REQUEST 

4)  CALLING  STATEMENT: 

CALL  TRANTP (MSG) 

5)  ARGUMENTS: 

MSG  - 8 element  cursor  status  array  sent  by  Pallet 

6)  CALLED~F1 

Pallet  ON  condition  when  translate  function  kev  Is  hit. 

7)  CALLS  ROUTINES:  

SETMSG  of  GDD;  TRANS  of  Pallet;  SEND  of  MP 

8)  C0MM0NS~WERENCED: 

DATA,  STATUS 

9)  PURPOSE  AND  METH0D~ 

TRANTP  requests  an  immediate  translate  of  the  available  neighborhood,  sets 
the  new  center  of  display  in  the  CURSTA  array,  and  sends  the  CURSTA  array 
to  the  Data  Exception  module. 
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1)  ROUTINE:  WRTCHR  2)  MODULE : MENU  3)  MACHINE: 

4)  CALLING  STATEMENT: 

CALL  WRTCHR(I,X,SECNME,  ICHAR,  ICOLR) 

5)  ARGUMENTS*  I-index  of  data  base  opposite  which  character  Is  to 

be  written;  X-x  coordinate  in  menu  coordinates  where  character 

should  appear ;SECNME- second  halt  ot  name  ot  character  string ; iCKAK-characte 

to  be  written;ICQLR-color  of  character 

6)  CALLED  BY: 

MESLCT 

7)  CALLS  ROUTINES: 

DBPOS,  NAME  of  GDD;  OPEN!,  CHAR,  DISPLY  of  Pallet 

8)  COLWONS  ITftRENCED: 

DATBAS,  DATSTA,  MENCON,  MNUTIA,  TREES 

9)  PURPOSE  AND  METHOD: 

WRTCHR  writes  a two  character  string  to  the  display  opposite  the  line  in 
the  menu  that  represents  the  Ith  data  base.  DBPOS  is  called  and  returns 
the  Y coordinate  in  the  menu  coordinate  system  of  the  proper  line  in  the 
menu.  A pallet  name  for  the  character  string  to  be  written  is  constructed 
by  NAME  from  the  PREFIX  for  the  Ith  data  base  and  the  4 characters  in  the 
SECNME  argument.  An  image  is  opened  with  this  name,  the  ICHAR  string 
placed  in  it  and  displayed. 
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G D D 


PROGRAM  SUMMARY  SHEET 


1)  ROUTINE:  /mtntp  MODULE:  FUNCTION 

request 

3)  MACHINE: 

1-70 

4)  CALLING  STATEMENT: 
CALL  ZMINTP (MSG) 

5)  ARGUMENTS:  mSG  - 8 element  cursor  status 

function  button  is  hit. 

array  sent  by  Pallet  when  a 

6)  CALLED  BY: 

Pallet  ON  condition  when  zoom  in  function  key 

is  hit. 

7)  CALLS  ROUTINES: 
ZOMTOP 

8)  COMMONS  REFERENCED: 

DATA 

9)  PURPOSE  AND  METHOD^ 

ZMINTP  sets  the  zoom  in  magnification  factor  and  calls  ZOMTOP  to  finish 
processing  the  zoom  function  request. 
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G D D 


PROGRAM  SUMMARY  SHEET 


1)  ROUTINE : ZMOUTP  MODULE : FUNCTION  MACH  I NE : 1-70 

REQUEST 

4)  CALLING  STATEMENT: 

CALL  ZMOUTP (MSG) 

5)  ARGUMcNTSl  MSG  - 8 element  cursor  status  array  sent  by  Pallet  when  a 
function  key  is  hit. 

6)  CALLED  bT: 

Pallet  ON  condition  when  zoom  out  function  key  is  hit. 

7)  CALLS  ROUTINES: 

ZOMTOP 

8)  COWIONS~^ERENCED: 

data 

9)  PURPOSE  AND  METHOD: 

Sets  the  zoom  out  magnification  factor  and  calls  ZOMTOP  to  finish  processing 
the  zoom  request. 
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G D D 


PROGRAM  SUMMARY  SHEET 


1)  ROUTINE:  ZMTRNS  2)  MODULE:  data  3)  MACHINE: 

EXCEPTION 

4)  CALLING  STATEMENT: 

CALL  ZMTRNS 

5)  ARGUMENTsI 

NA 

6)  CALLED  bT: 

CURSTA 

7)  CALLS  MTTINES: 

AUTONZ,  AUTOFZ,  MDISP,  MTRANS  of  GDD;  REFRSH  of  PALLET 

8)  COMMONrWERENCED: 

CURSTA,  MNUTIA,  TREES 

9)  PURPOSE  AND  METHOPl 

ZMTRNS  is  the  top  level  data  exception  routine.  It  decides  which  of  the 
zoom  algorithms  should  be  called  as  a function  of  the  mode  of  the  system, 
calls  the  MTRANS  routine  to  determine  any  data  exceptions  caused  by  a 
requested  or  implied  translate,  and  calls  the  MDISP  routine  to  retrieve  new 
neighborhoods  for  data  bases  with  data  exceptions. 
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PROGRAM  SUMMARY  SHEET 


1)  ROUTINE:  ZOMTOP  2)  MODULE : FUNCTION  3)  MACHINE:  1-70 

REQUEST 

4)  CALLING  STATEMENT:  ~~~~ 

CALL  ZOHTOP(MSG,FAC) 

5)  ARGUMENTS: MSG  - 8 element  cursor  status  array  sent  by  Pallet 

FAC  - magnification  factor 

6)  CALLED  W:  ~~ 

ZMINTP,  ZMOUfp 

7)  CALLS  ROUTINES.  se^msG,  NEWCEN  of  GDD  : SCALE  of  Pallet  ; SEND  of  MP 

8)  COMMONS “WERENCED:  i 

STATUS,  DATA 

9)  PURPOSE  AND  METHOD: 

ZOMTOP  requests  the  immediate  scaling  of  the  available  neighborhood,  cal- 
culates the  new  center  point  and  scale,  and  sends  the  new  display  status 
array,  CURSTA,  to  the  Data  Exception  module. 


APPENDIX  VI 
PROGRAM  LISTINGS 
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I nciwR 

I 

) 

I 

W30F 

1.30^21? 


f-NTPY  AB1ND»  AARr,  ARLOCK 

ARtt^n  H'iU  A 

A ARC  f«U  A 

APincK  E/3U  A 

RH  1 *S 
fj'in 


170 


PAGE 


1 


irjtiwi’ 

F ^TPV 

At  1 nr, np  ALnr 

* 

cau 

ALPHf(  iNtnrx,  IPMT 

,‘^IPNF  ) 

t XTW'i 

rpHSG 

MMCIP 

RLT 

f PM 

n 

mjp? 

TNPf  y 

f'PM 

? 

onf^4 

TPNT 

[ ULl 

4 

KinwL 

F Pti 

fi 

LF>'GTH 

F^U 

H 

SAVE 

nG 

3? 

P02tll.' 

t*  » ! r? 

ALt  OC 

STm 

Save 

Uf124M 

4R?f 

1 H 

INOEXflNPEXnS) 

iingRP 

/ip4r 

WC1(^4 

1 H 

IPmt^IPn)T(!?^ 

4Rf)f 

1 H 

f 15) 

CPU' 
Cflfelp'  j 

LHI 

U J 

SET  innp  lihit 

.411341? 

4pR2 

PfHM 

1 

LfNnTH,4 ( INDEX) 

Gf  T EIRST  length 

rf13RH 

fXP'’ 

SHmL 

LtNGTW,4 

shift  out  RLOCK  lOrATlON 

l^f13CK 

CP3? 

3r  J?n'>‘Of'X) 

GfT  APDRFS  of  next  INDEX  ENTRY 

k<l44nu 

MHAP 

1 POP 

LPP 

IP, length 

CDPV  LENGTH  INTO  SCRATCH  HEGTSTER 

t^(44?l? 

^87  4 
C4VCC1 

1 H 

7,Mf3) 

LOAD  NEXT  length 

M(446I? 

r:c/t* 

r,«Mi 

7,4 

SHIFT  OUT  RLOCK  IPCATION 

^^14  Ai? 

PH  A/ 

SHP 

IP,/ 

I-HICH  IS  RTGGER 

k4n4r.l< 

43  U‘ 
P^621< 

RNM 

UnpPi 

cnNTiNME  IF  LFNCTh  is  bigger 

k1f?*)0R 

J4P87 

LHR 

length,; 

SET  new  length 

mi6?p 

CP33 

‘<eoH 

1 nnf  1 

1 

3,Pf3) 

pniwT  TO  NEXT  Index  entry 

MdhbR 

CHU. 

1 

RHT 

1 , 1 

nPNL  looping 

1.1!  If)  At? 

4P31 

•H*4 

RN7 

1 pnp 

1 nnp  IF  NOT  done 

fM1f>rr» 

r;  n H ' • 

8UHL 

1 ENGTH, 3 

Hill  T HV  R TO  GF  T TOTAL  NUMBER  QE  RVTFS 

iK»fi2l' 

4P3v1 

RN7 

Rvr 

Tf  ST  FPP  EMPTY  C^^LHMN 

UORf  M 

C6At 

1 HI 

1P,1 

RET  RETURN  COOT  FOR  EMPTY  COLUMN 

'^'16AI» 

i:5^M 
V W 

R 

Rr  TMO 

PETI'RN 

CU^;- 

8VC 

aMI 

LENGTt*,  1?8*?4^f, 

CMC  total  length  nlepeo 

V {*  0 1 

►n.vpi? 

.lilH 
PfM  8i? 

R T w 

l.r^'GTH,!  f KT, 

STOPf  LENGTH  IN  SVC  RLOCK 

mVfil? 

^ 1 /M 
p--r 

R^C 

7,  At  nr 

RF  SI  RVf  the  space 

HO/AP 

48  1 1, 
4f  r OP 

1 H 

1 ,rppHR 

IS  TM[  PE  AN  F RROR 
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PAGr  ? 


4 33M 

P/ 

cri^T 

SKIP  If  Nn 

rRROW 

4 1 r ‘1 
n M r 

MAI 

(1M86I? 

DC 

A 

M (» A A r? 

DC 

A(MSOl ) 

MnflAP 

nc 

4(TtN) 

iioecr? 

6P 

DC 

AfePRHR) 

k}(«8f 

4fllM 

AH 

CONT 

1 H 

! rRUf 

nrr  aohwfs 

nr  prsfRvfo  coRt 

(U192I^ 

CA1M 

AHI 

1 ,?4 

allow  room 

FOR  HFAnpR 

1 4 

STh 

1 rM(IP^*n 

STORE  TW  RFTURN  VARTAHI.F 

P('9AR 

M7AA 

XH» 

HMC« 

SET  RfTURw 

cnpf 

'M)9CU 

4MA6 

REUlS 

sth 

MFTURD 

LM 

«,SAve 

tnJA4i? 

4ATF 

AM 

thrRI  T(1F>) 

MCIASI? 

RH 

!5 

414( 

4C4f 

432M 

53*)6 

433/ 

«'sr.i 

^C 

c* Ai  Lor  9vr7* 

0OB4M 

MV<5^A 

TfN 

nc 

lei 

H(J96f? 

TLVN 

DC 

1 1 

444f) 
4 1 4r 
4F4  J 

?Hf>3 

^643 

3*/?n 

M3GZ 

DC 

C»ntALnc  RVC7  ' 

r 

«nC4M 

OflJA  *1 

ni'.ALOC 

«5|M 

M,SAVr 

iJCCfll^ 

491  M 

LM 

1 ,IE 

unccp 

4C^1  4 
M j (4nn 

5 fH 

1 

4nt  n 

i>i[*,r  A 9 

t.iMir 

'1^049 

4^1.1 

Ut 

SfH 

1 ,ni>Fn 

1 / ♦ 

5'^t 

7,nAL0C 

•»  »r  r. 

,lf?nr  1? 

10U« 
f.  9 

1 

1 ,OAr  nr^? 

iinr  (7!i? 

4 53'- 

P/ 

Rf  TrRD 

ijnr4i^ 

4 1 f P 
(’MH49 

PAf 

1 s,r  R^RG 

HnrHi? 

p 

;MM-  4M 

A ^ .9 

nC 

A (M.sn?i 

;i«n  ci^ 

'■-1  ‘i  /,  1? 

nc 

A ( f L V NJ  ) 
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tunri} 

DC 

DALOC^? 

43C^M 

R 

PfTURO 

H(5r4l< 

A IOC 

DC 

3 

mu  6N 

cni^in 

r RROR 

nC 

LFNG 

DC 

y(H  AR 

niiF 

DC 

ytn  f:l^ 

OAinc 

DC 

4 

unrrR 

DC 

PI 

UlPii^R 

1 tlNGO 

DC 

eif’-iR 

C^ICHMI 

miFD 

DC 

f.nd 
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siihmoutinf:  atoffs(»i3g) 

COMMCNi  /HNUTIA/  on, off  ,YK8, no, up, pass 

1 , AUT0N,AUT0F , STATIC 

COMMON  /r.URSTA/  MODt,XCCNM,YCt:NM,nXCfN,OYCrN,xrXTNT,  YtXTNT 
1 ,OXXTNT,OYXTNT 

2,XCURA»YCUPA,OXCUHAf  OYCU«A,XCURH,  YCURM,OXC’URM,OYCURM 
TNTFGtR  0N,0rF,YFvSfNQ,|jP,PA8S 
TF'TFGIR  AIJTnN,AIITOFf  static 
MOrEBAUTOF 
r^FTlIRF 
F K'-  n 
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SU«ROUTlNt,  AU7  0F7 

CCMV'nN  /DATSTA/  CUPLtV  (1 0 ) , AUTOF  S H «)  » GX  ( 1 P)  ) , GY  ( 1 Pl)  , COL  ( 4 , 1 0) 
COMMON  /DATBA8/  PRCM X ( 1 0 ) , NUMLEV  (1 0)  » IN^^FMU  ( 1 0)  » ZMOTHB  C 4 , 107  » 

1 Z‘^IN7H(4, 1 0)  »D(4, 10)  ,NUMX(4, 10)  ,N(IMY(4, 10)  ,IFILE(4, 10) » 

2 -DBII'-DXf  4, 10)  » ITYPEC4, 10) , ICOLOR  ( 4 , 1 0 ) » N'lMOa 
CO’^MON  /mkjlITIA/  n^,fJF  F , YFS»fJO,'IP,PAvBS 

1 , AUTON,  AIJT0F»STATIC 

COMMpw  /COMMUN/  SELECT f 10) rDFLFTF ( 1 0) 

• Tt4TFGf  9 RFI  tCT,nCl  F Tf 
If.TFGFR  DhIND.< 

TMTEGr9  C'JPLF /» AuinF5,GX,r,Y,cnt 
IK'TfrnCR  nM.OFF,  VrSf  MQrUPfPASS 
TK'TEGCR  AUTON,  AUTOFrSTAT  IC 
on  10  l«l,NUMDR 

TF^AUTOFSd)  ,rn.  OFF)  On  TO  lO 
CALL  CLFVELn»l  FVFL) 
iFdFVEL.EQ.  CUPLFVn))  GO  TO  10 
RFLFCTd)  «LEVn. 

DFUFTE'd)  • ON 

IF  (CURLFVf  I)  ,Cn,  0)  riFlFTrd)  *OFF 

Ifc  Cn-JTINUF 

({FT  UR '-4 

t MM 
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SUflQOUTiME  AUTONfl(MSO) 
coM'^OM  /MNiJTi orF  ,yfSiNn,up,PASS 
1 , AUroM,  AIJTOF  , STATIC 

CO^HflN  /CURST A/  MOOt^Xcfe'^M*  YCFUH,nxrPN^OYCF  N,xrXTNT  ,YCXTN)T 

1 ,oxxtht,oyxtnT 

?,XCIIWA,  YCIIRA,hXCilRA#ayCUWA^XCU«  n Yr"RM>OXtURH,nyrURM 
T.Mtr.UCR  ON#  hrp^  YES ^ NO*  Ul^fPA^S 
jMTrcr.R  MITON;AUfO»  »STAtTC 

Hn!.}i:  S AUTO^^ 

I'tTlIRM 

E'r 


ite 


SHBPO'JTlNf:  AUTONZ 

/mn/iitta/  0N,OFf- , vESf no,"p,pass 

! ,M)TCNf  AIIT0F,STATIC 

common  /OATSTA/  ClJPUtVni?)  , AUTOFSfJP)  »GX(lcn  ,GY(1R)  ,C0L  (4,  len 
COMMOM  /OATBAvS/  PRLf- ixn?)  C V ( 1 0 ) , I NME-NU ( 1 M ) , ZMOTHR  ( 4 , 1 , 

1 10)  ,n(4, 1C1),NUMX(4, 10)  ,NUMY(4, 1C!)  , IF  ILF  ( 4 , 1 0 ) , 

2 0BIW0Xf4, 10), ITYPl (4, 10) , TCOLORCA, 10) ,NUM08 
Cri-(MnM  /commun/  SFLFc  T fio) , Of  UFTF  m o) 

JNTFGr.P  CLtRLCV,AllT0F8,GX,GY,C0l 

■ Tf'TeOLP  3FLFCI  rOrLF.lL 
INTCGr.R  CM,0FF  ,YFS^  N0,UP,PAS3 
I'-rrotR  AiJinH,  AUTOF,  STATIC 
Of  IH  I«1,NUM0B 

CALL  CLr.VFLn,l.f  VLu) 

If  CLLVFL  .£Q,  rijWl.LVf  I)  )G0  TO 
SCUCT(I)  * lfyfi. 

OELETrm  » nN 
AUTOfSm  ■ ON 

TFILFYLL  .CO.  0)  AUTOFSfl)  » OFF 
IFfCURlEvn)  ,10.  0)  OFLLTFf  I)*OFF 
10  CCr'fT''|lJE 
RF  TURM 
F KD 
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RI'HROUT  IMF:  CHARLVf  T » TCHAR) 

cnMsoM  /mmutia/  , Yr3»NO,up,p*8S 

1 , AUTO^i,  A'.JTOF  ,ST  ATIC 

rnwMOA  /tOMMijK,/  sni.f  L'T  n R)  rOFLF.TI  (tP) 

rf?MvtU!  /r  ATSTA/  CURLF  V(in)  , 4IJT0FS  ( U<)  » GX  M P ) , GY  (1  (? ) , COU  4 , 1 ?) 
COM^'OM  /0ATBA8/  PPFHX(1R),NUHLCVMB>,TNMrNU(l«?)fZMnTHR(4,llA), 

1 4, 1 P)  ,014,  IP)  »NUMy(4»  tV<)  »NIIMY(4,  J 0),IFriF(4,lP), 

rPIN[X(4,  IP),  ITYPF  (4,  IP),  TrOLORf  4,  IP)  ,NUMOH 
TNTEGtR  neiNUX 

TMTPGFR  r.N,rrr,Vt8»Ain,UP,PAR3 
TMTFGLR  AIITflM,  AliTOFrSIATIC 

TNircrw  8HrrT,nFLFTi 

TMTFGF  R f URl  I V,  AllT^^3rGX,f;V,C,0l 

niMCNSToM  lAsniiriPJ 

OAlA  taSU  I(l)»lASrII(2)»IASCIin)»IASClT(4),IA3CIIC5)»IAStII(A>), 
1 TASGtIf7),IASriT(B),lASCII(<)),lASCIIflP) 

?/?►<;  ,?r!i  ,?H2  ,2H)  »2H4  , 2MB  ,2Hft  ,?M7  ,?H8  ,2M0  / 
t.FV  » MIRLFV(T) 

TF  (SM-CnTd)  .NF.oFF)  LEV«v3tLf  CT(T) 

ICMAR  a T A8CI  I (I  E.V+t  ) 

iH  niRM 

FMH 
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Si^Rf'OMTTWE:  ritVH  (TfUVFl  > 

CnHMO^‘  /mmmTTA/  F , ¥FS,Nri»MPpP  A3S 

J , Al'TONpAMTOFrStiTTC 

/riiRSTA/  MflOtp  JfrrA/H,  YfF  NM.OlfCf  rvCTN^Xr  XTWT,  Yf  XTNT 

1 ,nxx  r\iT,OYXT'^T 

?r  VC'JRA  , YCMRApDXtnHA  f 0 Y t UR  A , YT  MRm  , y r U«  # 0 Yt*JPH  , H YCU*»^* 

CnM'lON  /DAT. ST  A/  CUR»-»  Y (I  0 > , il  »T  Op  S ( 1 > , T.X  (1  P ),  GY  f I PI  > , COU  4 , | P ) 
rn^MriK  /DA  THAS/  PRt  F T X M , MllHl  T V f1  P > f T NMf.NlJ  (1  W U Z NQ TMR  f 4 , 1 Pi  , 
t7MT^JTH(4,  JCJ)  ,0(4,  IP)  ,MMPX{4,  |P),AjUMY(4,lP),irUU4,lP), 

P ^niNf)X(4,  IP)  , IT  YPf  ( 4,  t«>  , TCf)LnP(4,  1^)  ,N(JMPR 
TNTrOFn  CURLf  V,  AllTOFSpCX^GYrCUL 
JVTFGrR  nSTNDX 

TNTCGER  nN,OFF ,Yf nd,up,pass 
i\'TFGrR  amtom,imtof#static 

IhVFL  ■ P 

t TCoT  r'^R  OUT  nr  RAMGF 

IftxrxTMT  ,GT,  ZMOTHRd,!))  00  TO  6P 
r PROCFSn  IF  ONI.Y  ONF  ItVLL  OF  OFTAIL 
TF  f^JUHLEV(T)  ,GT.  1)  GO  TO  IM 

TF  ((XFXTNT  .LF.  /SOTHRU,!))  .ANO,(XFXTMT  .Gf.  ZMINTHfl,!)) 

1 ) ir  Vf  L ■ 1 
on  TO 

r zno;^  or  zopm  out 
10  TFtXf.XTNT  ,Lr,  nxxrMT)GO  TO  3^ 

r MOST  HAvr  ZOPMf.o  p.»T 
I,  OOP  ■ ^lUHi  F V n 1 
no  J«  I, LOOP 
I r V ■ LPOP-J  ♦ 1 

irfXEXTNT  ,0T,  Z'^OTHRaiV,!))  GO  TO  2P 
I CVFI  • I CV 
Go  Tn  f)U 
?.i  rnsjri»;nr 

r.n  TO  fin 

c must  mavf  /noMfo  lu 

I OOP  • miihll  V ( I ) 

00  1.'^  ».r_v»  l.Lonp 

TFfXFXT^T  ,IT,  7'^IMTHrLF  V,  n ) GO  TO  40 
I rVF I ■ LFV 
Go  TO  SO 
4 0 rouiTMjr 

rui  TO  6C4 

ou  TrrcxfxTNT  .GT.  zhoThrm  rvrL,I)).nP,fxrxTMT,LT.2HlwTHaEVFL#n)) 

1 LfYLI.  • 0 

PPT  |PN 
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SimwOUl  IML  CLMLRS(JrISTART,IF.N’n) 

COMMON  /IHASr./  CR$aK(2»4H)  ,ICNT,FRSIZr 

C'OMMfiH  /TRi  f S/  ^'APT”!■»MC♦^TRE»  '‘'ORLr>(?)  r 7IMBUT#TWNBUT,SLCTPT, 

1 ADFBl'T  ,ZOTBUT»f^CNflUT,  APNBUT,5TARI|T 

2 ,RHAP(2) 

common  /OATSTA/  rURttV(f  P),AUTDf  S(tO),r,Xn0),GY(l{^),COU4, 

• COMHO^'  /OATS AS/  PRFF  IX(10)  ,NUMLEV(10),  INMrNlin0)»ZMOTHW(4, 10)  » 

1 Zminim(  4, 1«)  ,D(4, 10)  ,NUMX(4»  IP)  ,MIIMY(4, 10)  , I F I LF  ( 4 , 1 0 ) , 

2 nnjMnxf4,10),ITYPK4,10),Icni.r!R(4,10),NI.|MOP 
IMTror.P  GUMLFY,  AUTnPS,GX,GY,COL 

If  T{-r,F  P DBTNOX 
IfiTtGLP  fPSIZE 

IMLGLP  ZTNBUT.TRNBUT  ,SICT0T  r AIJP  RUT  , ZOTBUT , AONHUT , S T ABUT 
no  20  ICOl  a IRTARTrJFND 

If  rent f IC0L,I)  ,f-o,  0)  co  to 
rrdcMT  ,LT,  cRsiZE)  go  to  10 

TAIL  ERASF  (M4PTRF»rRSAR,IGNT,?) 

TCNT  ■ 0 

I'i  KMT  s TCNUl 

CAIU  NiAMFCPREFTX(T)  , COl  ( I COL  , I ) , E RS  AR  (I  , KMT  ) ) 

CC'KKOI.,!)  e 0 

20  rOMTIMUF 

MFTiJRn 
ENO 


X80 


SURRPIJTIME  CRT0HP(XCURA,YCURA,XCURM,YCURM) 

COMMON  /STATU3/  CUR3TAfl6) 

iNTfGtH  XCENM,YCDJH^XXTNT,YXTNT,XCURB#YCURB#XCURN,YCURN._ 

INTEGfR  OXCFNM,OYCf.NM,OXXTNTfnYXTNT,OXCURA,OYCURA,OXCURM,OYCURM 
DATA  XCENM, YCENH,XXTNT,YXTNT,XCURB,YCURP,XCURN,YCURN, 

1 OXCFMH,OYCFNM,OXXTNT»OYXTNT,OXCURA»OYCURA,OXCURM,OYCURM 

c CALrjLATF  DISTANCE  CURSOR  IS  FROM  CENTER 

At^SX  ■ XCURA  . 

AB3V  8 YCURA  -?4H, 

(•-  nCAl.E  that  DISTANCE  ANO  ADO  TO  CENTER  OF  MAP  TO  GET  CURSOR  POSITION 
C IN  TERMS  OF  MAP  COORDINATES 

XCURM  « CURSTA(OXCENm)  ♦ AB3X*CURSTA(0XXTNT) 

YCURM  K CURSTA(OYCFNM)  ♦ AHSY  * CURST A (OYXTNT) 

fJETliRN 

ENO 
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^ I ‘ ■ 1.  i '■  'i'  ' '■ 

nURROUTINE  = CURPOS(lXr'lY>»,ID|?,IAC.T).  , , 

COMMON  /MNUT^IAA  0N>0rF  r YE3,N0,UP,PAS8 
1 ,AUTQN, AUTOFrSTAIlC  ■ H t.’  r,  K A fc  f--  ' ! S'i (•  F fr, ;..  , - 

COMMOfi  /MENCON/,  MENU.r,ONXC-*,ONR.XC,OFFXC,OFFRXC,HENNHE(:2), 

1 8TATUS(?)v,.3X8.T.ATC2)  ,SYSRE8f2) 

2,STATY,RE.SY.CrRU'EFJ.,i  i n t ^ r • ' / t . 

COMMON  /MACRO/  MACNUM  U {j)  , M aCEXP  ( 10, 4)’,  FFTPOS  ( 1 61)  , P08FET  1 1 P! ) 
J ,NUMF;ETi'f 

PEAl.  MENNME  t v - 

integer  FET:P03,POSF.ET  ; i - 
INTEGER  ,ON,nFfF,yES,>»0,UP,PASS 
INTEGER  AUTON,  AUTOF^STATIC  . 

r CAUCULATE  POSITION  OF  CORSQR  IN  FEATURES 
IDS  * 0 t ' j 
NUM  * NUMrt.T*3 
DO  !N<J  * 3,NUH 

K84O0-rj-l)  *24 
k1*K-?4  , . h 

IF((IY,LE.K),AND.  (IY.GE.  K1))  go  to  15 
161  CONTTMl'r 

GO  TO  2B  - 
lb  1D8  ■ FF-TPOS(J) 

C GET  ACTION  TO  RE  TAKEN 

?.i)  lACT  « -I 

X » TLOAT(IX) 

Y ■ FLOAT(TY) 

IF  CC  X ,GE,  ONXO.Ano.  (X  _J.E\_  ONRXO)  IACT  ■ ON 

IF  ((  X ,nr,  OFpxc)  .and,  (x  ,le'.  offrxo)  iact  ■ off 

return 

END 
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r.iiBunuTTigf  c'irsta(nAme, Tvpt  ^i.Enrth»stat) 

COMMON  /CUMSTA/  MODt , XCENM , YCf  NM , OXCM  r OYCFN , Xf  XTNIT  , YE  XT^T 

J rOXXTN'T^nYXTMT 

?,  XCURAr  YCURAfOXC'iRA^  OYCURA.XCMBM,  YCIJRM,nXCURM,OYCURH 

REA,L  name 
TMTFGCn  type 
OIMFNSIom  STATrtft) 

XfFNM*STAT( J ) 

YCENM»STAT(2) 

XEXTNT»STAT''3) 

YEXrWTeST AT(4) 

XCDRA  X niATfS) 

YCURAxST  AT  (A.' 
yri'RM  X staT(7T 
YCORMx  «3TAT(fl) 

OXCl^’  X STATfQ) 

OYChN  X STAT(’O) 

OXXTNT  * STATCin 
OYXTMT  B STAT(tP) 

OXCltRA  r STAT(IJ) 

PYdJHA  X 3TAT(1<1) 

OXC'IPM  B STAT(15) 

OYCURM  X STAT(16T 
rAU.  ZMTPNIS 
PFTl'Rf’ 

F fjr 
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r.upwoHTiNE;  nBf^osn^v) 

c(3HfinM  /macrh/  HACNUH(tM) , H ACT xp ( 1 w , 4 ) , FfTPos (1 3 , posrt: T ( 1 P) ) 

1 ,NLIHffT 

CfiMiins  /«<nUTIA/  on, off  ,YFS, no, up, pass 

1 ;A'ITCN,AMT0F, STATIC 

CO‘^»<nN  /DATSTA/  ClJPLrV  (11^)  , AinOFSn«)  »GXn0)  ,GY(10)  ,CCH  (4,  icn 
COMMfjM  /nATRAS/  PRtUXf  10)  ,MIIMLFV(10J , INMFNUn^)  ,ZM0THR(4, 101  , 
1Z^‘TMTH(4, 10)  ,0(4,10)  ,(^I.IMX(4, 10),N(IMY(4,10)  ,IFILr(4, 10), 

? OMINnx  (4,l0),nyPF  (4,10),ItnLnR(4,l0),NUMDB 

TMTFRfR  OBTNDX 

IMFOrR  CURI-Cy,  AUTOFS<GX,GY|COI. 
jwtcgcr  r F:TPns,pnsFCT 
IMFGf  R OM,0FF,  YFS»NO,UP,PASS 
INTFGFR  Al  TO»^,AUTnPf  static 

Y«0. 

fr  f TNMf  (Niuf  j ) ,1  Q,  Hn)  Gn  in  10 
Ks4?\'''-(PnSf  ET(T)-n*24 
Y a rLnAT(X) 

I'J  RCTUr?i' 

F>!n 
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* 

Call 

FRMSGfHSGrl  TN^NUM) 

Vjnnpf^ 

ff^TRY 

fRMSG 

MSG 

fQo 

2 

HfJ?4 

LF^ 

L«U 

4 

MJM 

fQu 

6 

w?\ 

OUTBUF 

1 

SAvr 

03 

32 

^000 

C-<H0MR 

f PMSG 

STm 

W.SAVt 

404T 

0004 

LH 

LFAfLFN(l6) 

0f)28r« 

4Q44 

0000 

1 H 

LPNrOtLEwi 

il02C'< 

M894 

1 HW 

9,Lt^ 

fc'oprR 

4010 

008LR 

LH 

OUT0UF»OMT 

«in2R 

482F 

0002 

I.H 

MSr,,MSGM5) 

4002 

0000 

LOOP 

LM 

0rO(^^SG) 

W^kU 

4001 

000M 

STh 

0,0(OI)TBUF) 

0»3r« 

C0U 

0002 

LHt 

nUT0lJF,2(OflTHllF) 

15(^42R 

r022 

0002 

LHI 

MSGr?(*<3G) 

id\)A^n 

C090 

0002 

5^! 

9r? 

(^d4AR 

4220 

t^036R 

rP 

LOOP 

LOOP  UMTTL  MSG  IS  HOVCO 

(U)4£K 

4000 

000AR 

LH 

0,RLAMK 

0«5?M 

4M8i 

M00U 

S ?H 

0,0(nuTRHF) 

C011 

0002 

LHJ 

OliT0UF»2(OllTRHF) 

0nf)Ai? 

4010 

00BCR 

5Tm 

nilTROF  r DF3T 

0H5FR 

406F 

0000 

1 H 

MIJM,  NIJM  f JR) 

PICK  UP  MUMRFR  TO  RF  PRINTFO  OUT 

0062*^ 

401*6 

M00M 

LH 

PUT  IT  P0  FOR  Svr 

M«6^R 

F12W 

00RIR 

SVC 

2,cnNv 

CnwVFRT  TO  ASCII 

0(1641^ 

4 0 00 

00HAR 

1 H 

8,ni  ANK 

GLT  A COUPLF  OF  RLAWks 

0ti6C^< 

4r*Pl 

0004 

S I H 

0,4(OUTBIIF  ) 

STOWf  TM  OUTPUT  RUFFEW 

«»72R 

r A40 

AHT 

LFN,7 

POP  CHARACTOR  cnuMT 

0007 

4 04  0 
M090R 

SiH 

1 r^a  FHGTm 

store  TWN  PARAMFTpR  LIST 

0tJ7Ar^ 

F.  120 
'^08r  R 

SVC 

2rsr^n 

PRINT  MSG 

0(^7Ci* 

43^n‘ 
00  /r  M 

LOOP? 

R 

LOOP? 

LOOP 
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P*6C  2 


C.5HfniN 

1 « 

P'fSAVf 

4A^f 

»i 

lh,MU5) 

3« 

POflCr? 

Ht492R 

PUT 

PC 

MUBiP 

tj‘mr 

SEND 

Of 

7 

tE*^GTH 

PC 

*»* 

fet002« 

MS 

P3 

4 Cl 

yriflAR 

hl*m< 

OC 

WMOCJ^ 

n'/«ei6 

COMV 

oc 

3 

»MC(?n 

0E3T 

pc 

E''<D 
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r IF 


t:  ir 


niRRHUTINE  GRDCEM(tfLEV,NGX,NGY)  vrvTWT 

rOMHON  /CIIHSTA/  M00E,XCENM, YCENM,OXCF.N,OYCEN,XEXTNT,YEXT^JT 

?IxCiJRAlYCUFUrOXCURAfOYCiiRA,XCUHM,YCURM,OXCURH,OYCURM 

CnUMOM  /OATSTA/  CURUrV(l0),AUTOFSn0)fGXa0)»GY(l0)»COU4,l0l 
COMMON  /OATBAS/  PRf F I X ( 1 0) , NUMLEV ( 1 0) , INMENU ( 10) f ZMQTHR (4 , 10) f 

lZMTNTH(4,10)fn(4fl0)»NUMX(4»10)»NUHY(4»10)»IFILE(4»l0)f 
2 nBINDX(4,10) fUYPEC 4,10) rlCOLORC 4,10) fNUMDB 

COMMON  /MAP/MXl,MYlf MX2,MY2  - - 

PEAL  MXl,MYl,MX2fMY? 

integer  OBINDX 

integer  CURLEY, A1)T0FS,GX, GY, col  ..t  . r-w.ri 

CALCULATE  X AXIS  GRID  POINT  CLOSEST  TO  POJNT  X FOR  CURRENT  LEVEL 
NGX  ■ If IX((ABS(XCFNM-MX1)  ♦ 0 (LE V , I ) /2 , ) /O (LEV , I ) ) 

INDEX  within  2 OF  MAP  EDGE  MOVE  IT  2 AWAY  FROM  EDGE 
n*numx(LEV,I)-2 
ir^NGX  .GT^.N)  NGX  ■ N 

calculate  y'"IxI3^GRID  POINT  CLOSEST  TO  POINT  Y FOR  CURRENT  LEVEL 
NGV  ■ IFIX((A05(YCENM-MY1)  ♦ I)  (LF  V , I ) /2  . ) /D  (Lf  V , I ) ) 

INOEX  wihTIN  2 OF  HAP  .EDGE  moVF.  II  2 AWAY. FROM  EDGE  _ - 

N«NIIMY(LEV,T)-2 
IFfNGY  ,GT^  N)  NGY«  N 
TF(NGY  .LT.  2)  NGY  ■ 2 

tfETUHN 
ENO 
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V110PW 
\ U00r^ 

1Mi 

Af*s? 

AfOi^ 

?^A?a 

tA  (A  (3  t > 

VI  M M t 

t^00ftr 

fS  111  .5 
^ } 4C 

M f>»  P»  (J 

(dri2PN  c^^>P2 

4 J5  .i 
^•S  57 
?«?if 

M 0 1 

0CMPI?  ^*00? 
•>452 
4 Ml 
h;i37 

I 

M y {» (-« K 
MJ40P  C4M02 
4-5>1(. 
4*)41 
fi?37 

2^?vi 

Pfc'pn 

I P'M^P 

4943 
^^*>2 
*>3t)2 
p.^an 

f>  (^  ^ t» 

0M6PP 

4onp 

4f?f\Q 

?<4Pi‘ 


ENT«Y  ImPTAR 

EXTRN  AC0RNr3CALf7flPA3r7,TRAM37f CLE  AR7 , TC»tR9R , I Kl Y 
MTRN  M^JDrRF.rRS/rSTATI^^rAniTEM 
FXTRNJ  ISTlw 

IMPTAR  nC  ?,C» ACORR  * f^f I r A(ACORN) 


DC  2rC*SCALr7  *r0,l,A(SCALF7) 


DC  2rC*FWA5f  7 *rW,Ir A(fRASF7) 


DC  2rr«TPAMS7  * r r 1 r * ( TR  ANS7  ) 


DC  ?rC»ClF  AR7  • rP^rt  r A(CLrAR7) 


DC  ?^C»ICUR3P  * rPrt rA(ICURSR> 


DC  2rC»IKlV 


* r^r Ir AtlKTY) 
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2M20 

|f}70f?  000? 
-1649 
4L44 
?M20 
2020 
0000 
000J 
0000F 

0O80H  0K«2 
6246 
466? 
6137 
2020 
00  00 
0001 
0000F 

(.  090M  0002 
2A2A 
2020 
2020 
2020 
M02D 
0001 
0000F 

0flA0M  0002 
4144 
4954 
454D 
2020 
0000 
0001 
MM00F 
UJB0f<  0002 
6354 
4154 
494E 
2020 
0000 

0001 

0000F 

1 0C0R  0000 
0000 

I 0C4R 


DC  2,C«FIKD  S0» 


DC  2,C'REFPS7  «»0, 


nC  2»C«**  »»45 


DC  2rC'ADITrM  ',0» 


DC  2,C«STAT1N  U0, 


DC  0,0 
F.ND 


l.A(FIND) 


l.ACHtf RS7) 


,1,A(LSTFN) 


1,A(ADITFM) 


UA(STATIN) 
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kJ(l00R 

FNTRY 

IMPTAB 

extrn 

ONRrCURaTA 

M002 

'1F4E 

5220 

2fe?20 

2020 

H000 

0000 

W000F 

IMPTAB  nc 

2,C»0NR  ',0,0,A(nNR) 

yiiU'H 

0002 

4J55 

5253 

5441 

2020 

0000 

0000 

0000F 

nc 

2,C'CUR3TA  ' ,0,0, A(CURSTA) 

0n?0r,> 

0000 

DC 

0,0 

LnjP4|! 

0000 

rNo  ~ 

■ 
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I^TT 

COmmcik-  /cnLO^^S/  PCr'^VM  l Ow,GPl TN,ni  ACK 
cf  >-‘^o^  /coM^^u^/  sri>cTM w>,oFi  r TF  n;^) 

cnH-^OK  /CURST A/  Moni:^  KCF  yryTMT , vFy  r^fT 

1 , Qy/T\T^nyyTNT 

2,  XCURA,yCURA,OXCllRAf  OyCl'RA,XCUP^r  YCUPM,nXCUW»^,nYrUR« 

COMMON  /DATBAS/  PRF»'  I X ( 1 'Ml  F V (1 ) , 1 NMf  Nil  (1  M ) , /MQTHR  ( 4 , 1 0 1 , 
17HTNTH(4,  lP)f  0(4,  »NI)HX(4, 10)  ,NIJMy  (4,lt!),  !FILF(4,  IP) , 

2 DMIMOX (4, tn) , T TyPL (4 , 10) , TCnLnp(4, 1 P) tNUMOB 

co^*'*nN  /oatsta/  cuRUFv(iP) , ai)tofs(ip) ,r.x(iP) ,gy(10) ,col(4, )p) 
COHMOM  /[RASF/  FRSAM(2,4P),tCNT,FRS17l 

COHMPN  /macro/  MACnUmC 10) , macFXP( IP, 4) , FT TPOS ( 1 0 ) , PPSFF T ( 1 P ) 
t ,Ml>’^^FCT 

COMHO’^J  /»«AP/^Xt  ,Myi , '-x?,wy2 

common  /.MFNCON/  MFNU,nNXC,PNPXr,nFrXC,OFFPXC,HFNNMF(P)  , 

1 5rATU3(2SSY8TATC2)  ,.sysprs(?) 

2,  STATY,MF8YC,RUTT 
CDMMnM  /mnuTTA/0^’N,Lif  F ,yFSf  NO,  IJP,PASS 
\ ,AUTnN.,A|JTnr, STATIC 

COMMON  MAPTRr,Ht;NTPrrk-0Rl.n(2),/IMB|iT,TRN8UT,SlCTBT, 

t AMFO-jT,  ZOTOUT,  mcnR'JT,  AnNniir,STARl(T 
? ,RPAPf?) 

/FAC/  ZnOMTNf  ZOOMf^T 
cn^^Mn^.  /FILL/  mfilc 
INTFCro  REn,YEI  Lnw,GRFC*^,RLArK 
iNTFGtR  SELECT, oritur 
iNTFGrR  ORTNOX 

INTFGCR  CURl  FV,  Al'TnFS,GX,GV,rni 
TNTFOLR  frsize 
INTFOFR  re TRnS,P05FLT 

KFAI.  1 , MY  1 , MX?,  My2 
N0AL  *’fNNMC 

IMF  Ft  R AMTHN,  AUTOF,  ST  AT  jr 
TNTECfR  nNN,0FF,YES»^0,UP,PASS 

TNTrGF.'?  ZT^fBUT  , TR'JRUT,  SI.CTPT  , A I IF  RH  T , Zn  TRIJT  , A (INBIJT  , ST  A Bl  IT 
TUTFGCR  PMrSIf4) 

PT^^FNSTO^'  STATr2l) 
fxtfrnai  savfampk'sR 

ryTFPK'Al.  Mf  hliUP,  mfsLCT  ,Ai'TnNS,ATnFFS,3TATrS 

PAT  A Rl  r S I ( 1 ) ,Ri.irST  (?)  .HlirST  (.A)  ,Rl)f  SI  (4)/HP,  4,  1 RPP,3/ 

data  nnp/-i/ 

CALI 

CAM  nP«Rf  a(F,3P) 

CM  I TMPTNTCBUFST ) 

CAU  ONf  -tAOTPF,FFNRUT,  1 ,Mf  M»liP) 

PA!  I P j f m^ptRL .SI CTBT, 1 , MfSl CT) 

CAU  fM  API  RE,  AnN«’JT,1  ,AljTnNS) 

CALL  0‘-rMAP7Rr,  A.iFR-IT,1  , AT^FFS) 

CAU  OM^APTRLfSTARUT,  1 ,STATC3) 

CT  A7M)»xrrNM 

s r A T f ?T  * v(:[  Mf' 
niATr^-layryTNT 
ST  AT(4)»yFyTNT 
ST  A T ( S)  « >Ci‘RA 
STA  T f M » Y(.|.iPA 
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•STATf  7)  sycuRM 
3TAT (6) «VCURM 
on  ipi 
KaJ^H 

STMfKI  s.3TAT(J> 

?)  nONTIivUr 

niATfl/l  s >JOKLD(l) 

PTATfin)  »>‘0HLD(2) 

3TAT(19)  s ZOOflA- 

STATf?a)»700MpT 

STATfPnai-UPTRF 

CM,L  SrTRAV(W«KSP,SAVEA) 

CALL  IMF'-'P(MFTLF,lfSAVEA) 
f'A!  I i;HKS  Ay  (3AVCA) 

TM.l  DPr:N  f W'?K8P,  flHMAPMENII  ,SAVFA) 
f.Al  L (JHK3AV(SAVEA) 

^'AU  t.t.CAP  (MFMTRO^ 

f A'  I sr.'JfXRHSTATIM  / 63 , bH , S T AT , 84  , ERROR ) 

( Al  1.  niSPI  Y(MAPTRE,1T0P, WORLD, 100, ,H,,p.,0,,wnRLD»C’) 

CAU  r T^inCMAPTRE^wnRl.D) 

TALL  MDTfiPfTFlAG) 
f ALL 

(■  .:p 
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PAGC  1 


r^T«V  IN^VF 

* CALL  lNrvr(0UrnPO3),lNDCX) 


flHOMR 

SAVE 

03 

IB 

HIM 

TNMVr 

stm 

firSAVE 

uni4R 

4nar 

H^^P2 

LM 

P,2M5) 

uniBR 

isnr 

LH 

9,4(1b) 

mMCR 

CBAU 

LHI 

lf%B 

H02PR 

4R08 

MPPt’ 

1 OOP 

LU 

n , M ( 8 ) 

P(1?4R 

40B<^ 

STh 

IUP(9) 

tU?2BR 

cfleR 

LUI 

0M2CU 

EflO^ 

LHT 

9,4(9) 

orLiPU 

CBAH 

VHIPI 

SHI 

1P»1 

423* 

dP2uR 

«N7 

LOOP 

D \ 

PPHviR 

LH 

flf SAVE 

mncR 

4 at  f 

f » 

ah 

(MMPR 

[UUpV 

RR 

LNp 

1 b 

IBUF  A0DRES3 
TNOtX  ApnRES3 

COUNT  or  4 FNTRTFS  OF  ? NROS  APIECF 
LOAD  WORD  FROM  IBU^ 

STORE  IN  INDEX 
POINT  TO  NEXT  PlIFFrR  ENTRY 
POINT  TO  NEXT  INDEX  ENTRY 
done  4 ENTRIES  YET 
CONTINUE  UNTIL  DONE 
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.SilHIJni.n  H'E  MOISPf  I»^!J9CC) 

/fRASC/  r»S*H(2,4P),IC^Jf,rRSIZf 
Comhom  /mnuTIA/  ON.OfF ,YP8»Nn,ilP,P»53 
t ,AiiTntg,*iJTnP,STtTlC 
cnt-MPiK  /COMMUN/  SFLECT(lP),D(Ltn  citf) 

COM“Oig  /0*TSTA/  rii9UEV(iP),AliTnrS(1P),GX(JP),GV(10),COU(4,J0) 
common  /ntTflAS/  prf,fiX(JP),niimi  CV ( lei , Inmcnuc  1M) , ZmothR(4,  J P) , 
i 7MTNIH(4, tP) ,Df4, IP) ,NUMXC4, IP) ,Nl|MY(4, 10) , T F ILF ( 4 , 1 P ) , 

2 0>)INDX(4,1P),ITVPF  ('1,lM),TcnLOR(4,lP),RllMO0 
CMMMrlfJ  /TRFFS/  MAPTRE  » “FNIRF  , NORI  D ( 2)  . ZTNBUT  , TRNBUT  , 5LC  THT  , 

1 MiFUIiT,ZOTRUT»mfnRI)T,  ADNOUTfSTARMT 

2 ,nMAP(2> 

l>'Ttf-CR  ZlNBUTfTRNRUTfSUCTPT  , AlJFB'lT  , ZOTBUT  , A ONHUT  , 8T  ABUT 

TMii-r.rn  cdrlf v,AiiTcF3,Gx,GV,roL 

Tl'Tfr.LR  ORI'^GX 

Tt.Tf  nr  R BFLFCT.nriF  ft 

TMFGCR  ON,OFF,YES»NO,liP,PASS 
I^.T^CLR  AllTON,  AIJTOF  rSTATIC 
INTIGCW  IR3IZC 
OINtNSION  tN0CX(2,4) 

I.)ATa  IAOOR.LCFJGTH/I  »?/ 

DATA  ISTART,IEND  /1»4/ 

DO  la  t,MllMpr< 

ir  f CtHRl.tvm  ,CU.  «)  ,OR.  (PfUFTCd)  .10.  OFF))  GO  TO  IP 
CAM.  CMtR3(I,ISTART,IFNP) 

C'lPl  rvCT)  a p 

IP  Pfl  r»Tn)  ■ OFF 

?4  CONTINUE 

IF  nc  NT  .f,o.  n)  GO  To  3P 

CAU  CHASFrMAPTRE.LRSAR.TCNT,?) 

I C N T a p 
irOBCKa I 

:)p  no  ZP  I a i.NUMoo 

irrSCLECTd)  .FO,  OFF)  GO  TO  ZP 
tlVFL  a SFLFCTd) 

CALL  GROCFNCI.LF  vr  L.GXd)  .GYd)) 

CAI.L  SETINXd.LFXFL.GXd)  ,GY(T)  .UFTTOP.INOf  X,  IBMF.NONE) 

IF  CNONt  .to.  P)  GO  TO  4P 
no  33  ICOL»  1,4 
LOLCICni.n  a U 
38  r.ONTTNiif 

GO  TO  ZP 

4P  1)0  ftp  ICOL»  1,4 

CO(.CTC0l,I)  a IFTTOP  ♦ ICOl-1 
IPnTbTHijf 

( A I I,  REOSNOd,!  F V(  l.,INnr  X.IPNT.TCOL) 

*)p  (,(i‘iTTNiir 

TF  or)t:c»i 

Miwl  rv(i)  a I FvrL 

SFl  rCTCn  a OFF 

CAU.  nrALOC 

z3  four  I lur 

I'FTUP* 

F‘P 
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si'K^nuTiNt  Ni‘UP(^3ro 

/(  U^^STA/  YCENM,nxCCNrOYCrN,Xt  XTMrYfXTNl 

If  <^XXTK'Tf^YXTNT 

2f  XCUPAf  YCliRAf  OXCURAf  OYniRA^xrUPHf  YCUPM^nxcURMf  riYrilPM 

cr-HOM  /'iiNCPw/  Mpvu^oNxCf ONRxCf OFFXCf nrrRxCf HENNMFt?) » 

1 3TAtU;5(?)  f SYSTArf2)  f 3Y5Rf  S(?) 

2f STATYf RF^YCf RLCFT 
rO'^MDNJ  /4viiriA/  OH,OFFf  YrSf^Pf'iP^PASS 
I r^UTOM.A'  TOFfSTATiC 

I U^‘MON  /^ATST  A/  CHRLE  VdfS)  • Al IT OFS  ( 1 e > f GX  (1  P ) , G Y (1  R ) , COL ( 4 , 1 P ) 
ro^^MOA’  /PA  re  AS/  PRPFTXMP)  ,n*IimLFV(1P)  f ,ZMQTHR(4f  i«A)f 

1 Af  1 r > ,0(4, 1?)  f NI»HX(4,  IPl  ,M»MY(4,  IP)  ,TFTLF(4,1fl), 

? n«INO> (4, t?) , n YPF 14, IP), IcnL0W(4f IP) f NUMOB 
rn  /TRFES/  MAPTRFf MCNTRl ,wnRi  n(2) , Z I MBUT » TRwBUT , SLC TBT r 

1 AOFeUTf  ZOreUT^MCNRMT, AONBMT ,ST ABUT 
V fRhAPr?) 

TvImmO^j  /CH.rP3/  PFnfYFLLOK,GRCrNif  BLACK 
MFAL  N'NMr 

^HTFGr?'  ^TNBUT  fTRNP’JT  f SLCTBT  , AiiF  BUT  f ZPTHUT,  An^JHDT  , ST  ABUT 
I^JTFGLR  OBT^OX 

TWTCGLB  C JRLCV,  AijTnFSrGX,GY,COL 
Tn»TCGLR  AiJTDNfAUTnF  f static 
TNTFGCR  ONfOFFf  VtSrN»0,uR,PASS 
TKiTeGCP  RFDfYFLLOW,GRCFNf BLACK 
niHCNGTCP  MSG( 1) f NNM(2) 

C IP  HFMU  AlRf.Anv  nJSPLAVLO  SKIP  STATUS  RLPORT  CFNCRATIPn 
IF  (MCNM  ,tO.  tiP)  GO  TO 

CAl  L nTS°LY(HLNTRF,-t  f HFNNHCfP,,B.,l0P.,  fP),,B.,MF^JKMC,B) 

C Gc» CRATE  status  REPORT 

CALL  OPt^Jl  fSTATUSf  1 .,4  79.,P) 

DO  17  I»lfWHMO0 

IF  (I^*-rvi!(I)  ,FQ.  ^n)  GO  TO  10 

TF(  (C'J*^l  EV(I)  .PG.  .AMD,  (AHTOFSn)  .rQ.  OFF))G0  TO  IB 
CAl L CHARI  Vf T f IChaW) 

LAIL  DBPnS(I,Y) 

call  HAHF(PR|  P TX  (I)  f4H0W 

CAl  L CHAR(Mrh.'iM,TCHAR,  I ,ONXCf  V,RrOf  t , 1 »B) 

J0  cowriMU 

r 4RITF  HCrr  and  SELECTIO^J  ORTTOKj 

ir  (^nnr.  ,CQ,  AhIon)  CAII  SMST  a (23WADT0  on  status  RFP0RTf23) 
iFt'^nnh.t  0.  AUTOF  )CAl|  SfTSTA(24HN0RHAL  HaKE  SELECT  lONf  P4  ) 
U(HOOE.fO.STATTL)  CALL  SF TST I ( 23MSPCC I AL  «AKE  8FL F CT lONf 23) 
CAI.I.  CMARfSVSRESf  2H  , 2 , Rl  E F T , RF  SVC  f RL  ACK  , 1 , I , B ) 

CAl  L r)lSPLY(MFNTRF,4F-^MME,PASSf  U,  ,B,  fSn  ,f  47R,,P,  ,PI,,B,‘,STATUSf-1  ) 
MfNU  » l.)P 

IF  (Honr  .FO.  AIITO^^)  on  T('  ts 

r.n  TO  3p 

r I NIFU  ‘^cuu  AMn  fowcf  otSpi.ay  S 

CAU.  ^rrPSH('<C^:TWCf 

20  call  ri  r AR(‘^rK'T«r) 

ME»JU  ■ OP » 

CAM  kFPRSM  (m^njtrf  f 1,IJ) 

CAl  I.  PCf  l>SM(HAPTPCf  M 
IP  ORP  F.  «0 

CALI  ‘-'Oispnr oRtn 

CALI  RFFi?SM(MAPTWr,  J , IPOPCr  ) 

37  upturn 

FNP 
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mJHUn;)TINE.  **E3|  lT  (“30 

/M*c'<n/  MA^^o‘1(5M>,M4Cpxp(lf»,4),^cTPOSM^*)*POSM.T(l(l> 

1 ,^'I•^(E.T 

ro-^iON  /piTSl A/  riiRLf  v(  t!«)  ,*iiT(iFS(in>»r,x( iti)  ,r,Y(  Id)  ,roi. (4,  id) 
<:0->iPNi  /DATRAS/  PHf^  IX(ld),NU“LFV(  t3)*INMfNU(  ia).ZA'0THR(4, 10)  , 

1 /'M  wTH(4,  1 0)  ,D(4, 10)  ,M'IMX  (4,  Id)  ,MIJMV(4, 1«)  , I F I Lf  f 4 , 1 0 ) , 

2 0'?I’»r>X(4, 10)  ,!TYPf:(4. 10)  ,TCPL0R(4, 10)  .Nliunn 
CyviMONi  /mmiiTI/./  0“,0f  f , Yf  a,K.OiUP,P*SS 

1 , A irO'J,AUTOr,ST*TTC 

ro'tin*'  /pfJCOM/  KeN0,0Nxr,0NRxc,nrKxc,0FfRxc.HrfJMMr(2), 

1 3TATUS(?),SYSTAT(i!)  .RYSRrS(2) 

?,STATY,R1 SYC.RI f FT 
COMMON  /CO'AMUA;/  3KtCT(10),0FUFTf  (10) 
common  /colors/  rfo» yh.i  oi»,r.RtrN,m  4CK 
TMEC.CR  RFO,  YFLI  nw,GRC.LN,HL4CK 
INTEGLR  FFTPOS.POSFtT 
INfCGFR  CURLFV, AUT0FS,GX,GY,C0L 
I JT."ci.R  oniNOX 

It'TFGCR  ON,OFF,  YES»NO,UP,PASS 
T'OTCGrR  ai.iton,autof*static 
iMfCGlR  SELECT, PFLt  U 

UrAL 

r ir  fJOT  tip,  rMNCTION  IS  IMDOP 

IF  CiltNU  IIP)  GJ  to  901 

TALI  F ‘iPPnS(MSGn)i'^Sr.(2),T0BfUCT) 
r Dl  3<»PK  CUPSOP  sri^.ttCD  A FEATUPT  ANf)  ACTION 
TT  fTr>n  .Mt, , ?)  r,0  To  IM 

rAL»  PLSPnNn3HC^PS0P  NOT  ALIGMrn  wTTM  A FP;a TUBE • 33i RtO) 

in  on 

n II  f T \r  T ,GF.  TO  20 

Tam  KFSPnN  (3AMrtlPG0«  not  AI  IGnEO  with  a ri'K'CT10N,34,Rrn) 
r.fj  TO  Pn 

r.  1 1 pnp  f np  macpo  Ej^pansTOm 
9 ) I OOP  • HAENIJMCIDB) 
on  Ra  3 s i,toop 

T » MACfXPn0n,7) 
r F’ROCFRr)  r«^‘  FUNETTON 

If  (lACT  .EO.  OF^)  GO  TO  5« 

I RCiNSTATf  fEATIlRE  IE  PWLVinilRI  V Otl  FTm 

IF(nfLETE(n  .10.  OFF)  GO  TO  3B 
OEIFTE(T)  ■ OFF 
Al»TOFSm  » OH 

IF  (TMMFF'i.ifn  ,ro,  NO)  r.o  to  bp 
CALI  ^'MTCW^n.oFFXC.AMorF  .2H  ,15) 

CAM  PF‘RP0N(27HrEATUPF  ►ILI  NOT  Hf  Dt  Lf  T|  0 , 27  . PF  0 ) 

GO  TO  8P 

r T,S  FFaTUPF  AIRTAOV  SFLfCTtO 

’11^  IFfAMTOFSd)  .PO*  OFF)  GO  TO 

IFftNMFNU(T)  .to,  VFS)  call  RfSPliNf 
1 74HFEATMPI  ALPLAOV  SF  I E t TPO , 24 , Pf 0 ) 

GO  TO  R^ 

r SfUCT  Tt*F.  F-EATUPp 

r At  1 r.LFVF  I ( I tl.Evri  ) 
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r)fLFCT(n  ■ leve:l 

AUTOF'S(I)  « ON 

n fTNMENU(I)  ,EO,  NO)  GO  TO  05^ 

CALL  CHAHLVdrICHAR) 

CAM.  wRTCHR(I»0NXC.4h0N  , ICHAR, YELLOW) 

CALL  RR3P0N(?7HFEATURE  SELECTED  FOR  DISPLV. 27, YELLOW ) 

no  TO  ao 

C PROCESS  DELETE  FUNCTIONS 

b?  IF  lA'lToFsa)  ,EO,  ON)  GO  TO  60 

If  (INMENU(I)  ,EQ.  YES)  CALL  RESPON( 

1 31HFEATURE  NOT  CURRENTLY  DISPLAYED, 31 , RED) 

GO  TO  80 

IF  (SCLt-CT(I)  ,F0,  OFF)  Gn  TO  70 
AUTOFSm  ■ OFF 
SILECT(I)  » OFF 

ir  (tnmenuci)  ,eq,  no  ) go  to  00 

CA!  L WRTCMRU,0NXC,4H0N  ,2H  ,15) 

CALL  RESP0N(29HFEATUrE  WILL  NOT  BE  DISPLAYED, 29, RED) 
GO  TO  80 

f SEU  CT  FEATURE.  FOR  DELEUON 

■/O  IF  (LURlEVd)  ,NE,  D)  DELFTEd)  ■ ON 

AUTOFSfl)  * OFF 

IF  CINMeNIKI)  ,E0,  no  ) GO  TO  80 

CALI  WRTCHR(I,0FFXC,4H0FF  ,2HX  ,YLLL0W) 

CALL  KFSP0N(23HFEATURE  WILL  BE  DELETED , 23 , YELLOW ) 

80  COf'TiKUE 

RFTURM 

E^'r' 
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PAGF 


1 


WOOP'I? 

* 

ENTRY 

EXTKM 

CALI 

HSf  NO 

SENOf CRMSG 
MSCNOCMAPf , 

;.i(!RPK 

SAVE 

03 

16 

(irn  op 

n'^^Ro 

OOJOP 

MSf  NO 

STM 

Rr SAVE 

0«MP 

4RR^ 

00M2 

t.M 

R,?(15) 

OOIRP 

4 PRO 
OOBLR 

sTh 

Rename 

001  CP 

4RRF 

0004 

LH 

Rr^Mb) 

oopop 

408  1 
OM60P 

STm 

RrPRIO 

0024P 

48HF 

M006 

1 M 

8,6(15) 

0CP8P 

40RO 

OOftPP 

STm 

RrTYPE 

00  pro 

48RF 

0008 

LH 

R,8(15) 

003RP 

48RR 

OOPO 

IH 

8,(i(R) 

MIK54P 

4 0RM 
0PR4P 

STh 

8, RUE 

00  3BP 

488F 

O0OA 

« 

* 

LH 

Calculate  Lf.wr.TM 

O03CP 

4886 

C100M 

LH 

R,0(R) 

CCP'.! 
OOP  4 

RMhL 

8.4 

0.J4  4P 

COHO 
000  3 

SUHL 

8,3 

0046P 

CA8U 
pot  r 

AHI 

R,24«6 

4f'i8lJ 

PORC'? 

STH 

8. LENGTH 

r.Obop 

4R8f 

PtUH 

8.1P(16) 

40PM 

OORHP 

5 Th 

R,f  PROP 

(UJbHP 

4iF0 

i/tfAn{\r 

PAL 

l&.SFNO 

ePbtP 

MPPt 

DC 

14 

OObCW 

UPRP 

NAHT 

OC 

*•«* 

m-  ■»  ' 

PMin 

nC 

*** 

OOBPP 

C1pf»t 

TYPE 

nc 

ort^4P 

1/  M •■'. 

B'JF 

OL 

*-  * 

/06BP 

PCIRC’^ 

1 TNG 

DC 

LENGTH 

OOBPP 

r PROP 

oc 

* •* 

U06AM 

4 80  j 

1 

0, ERROR 

M)^r  p 

480Q 
n'"  . 

1.  H 

0 , M r 0 ) 

OF  MFSSAGE 

in*D  LtNGTH  fPOR  iNOfX 

Gf  T «ID  OF  r^JTRV  BVTF 

MiJLT  BY  B BYTrS  PP.P  POINT 

ADO  Length  of  HfAnFM  AND  TPAIlEW 

STOP^  AS  PARAMFT^R 
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4330 

0092R 

rU 

RETURN 

1 fl76R 

■1 1 F '/I 
0M00F 

ral 

15,ERMSG 

MU7AR 

0000 

oc 

8 

0M7CP 

000f:R 

DC 

A(MSGn 

H»7ER 

0090R 

DC 

A (TEN) 

»f)80M 

006OR 

oc 

A(ERROR) 

UiJBSn 

0180 

0000R 

return 

l-M 

0,SAVt 

0fieftr< 

/I  AF  F 
0000 

Ari 

15,0f 15) 

00BAR 

030F’ 

RR 

15 

ynecR 

0000 

length 

DC 

*w* 

WfJflFR 

4053 
454T 
4 4 20 
5345 
4E44 

MSRl 

DC 

C'MSEND  SEND' 

WfJQRR 

009AR 

000A 

TEN 

DC 

F.Nn 

1 0 
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SUBROI'TT'^E.  MTRANS(Tf-ORCE) 

, /mmjtIA/  nM,OFF,YFS,NO,Uf>,PASS 

1 , AjrON, AUTOF»STATlC 

COMMON  /COMMUN/  SELECT(t0)»OELFTE(Jf1) 

common  /OATSTA/  CURLEV(t0),AUTOFS(10),GXa0)»GY(i0)»COL(4,lP)) 
rOMHON  /DAT0AS/  PRF F I X ( 1 0 ) , NDMLFV (1 0 ) , INMENU ( 1 M 1 , ZMOTHR ( 4 , 1 0) , 
12MINTH(4, 10),D(4,10),NUMX(4, 10),NUMY(4,10),IFILFf4,10), 

2 DMrNDX(4, 10),  ITYPFC4, 10),  IC0L0Rf4,  i0)  ,Nt.JMDB 

integer  dbindx 

integer  r(iRLKV,AUT0FS,GX,6Y.r0L 
integer  MJTON, autof^static 

INTEGER  ON, OFF, YES f NO, UP, PASS 

integer  select, delete 

on  ?0  Ial,NUMDB 

IFiatRLFVm  ,EQ.  0)  GO  TO  20 
CALL  GRnCENn,CliRLEV(I)  ,Nr.X,MGY) 

TF  (NGY  ,EQ,  GY(D)  GO  TO  10 
SELFCTfl)  ■CURlEV(I) 

DELETE(I)  ■ ON 
GO  TO  20 

10  IFCNGX  .FO,  GX(D)  go  to  20 

CALL  RPCOL (I,NGX,NGY,IFnRCE) 

GXm  "NGX 
20  CONTINUE 

CAU.  '10I5P(  IFORCn 

OET'jRN 
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UH3PII? 

entry 

NAME 

NU^lAR 

F.«U 

0 

FSTNM 

F<JU 

?. 

0H04 

SECNM 

eQii 

4 

onnfi 

NAMES 

F.Ui) 

6 

SAVE 

03 

32 

IUJ20R 

OM0M 

000UH 

NAME 

sTm 

0,8AVE 

(K124R 

4C8f 

LH 

NAMES, NAMFSdSl 

WlJ28n 

4«?f 

0M02 

UH 

FSTNM, FSTMMf lb) 

0H2CR 

4H4^ 

0004 

LH 

SECNM, SEfNM( lb) 

HMH0R 

481  ? 
000^1 

LH 

1 ,0(FSTNH) 

()fV34rJ 

401c 

000(1 

sth 

l,0fNAMES) 

0(r^8i< 

4812 

LH 

1 ,?(FSTMM) 

IMHCR 

4016 

il0C*2 

STM 

l,2rNAMFS) 

tn)4piR 

071  1 

xhr 

cjfMPR 

4 016 
0 00  4 

rth 

1 ,4(NAMES) 

0M4  6R 

481  4 

0000 

1 H 

1 ,0(SECMM) 

UfMAf? 

4016 
00  0 6 

sTh 

1,6(NAMES) 

tUMER 

01011 
0 0 0 H R 

I.M 

0,3AVE 

0f152R 

4 AT  r- 

0 0 0 (I 

AH 

15,NIJMARf  15) 

t‘:n56R 

t-infiRR 

0110F 

nR 

FND 

15 
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SUHPOUTIKIF;  Nf  WCi:N(FAC»OXCrNM,OYCENM,XCFNM,YCf  NM) 

common  /status/  CIIR3TA(lfi) 

INTFOCR  XCENN,YCENNfXXTNT,YXTNT»XCURA,YCURA,XCUWM,YCURW 

TNT tot R OXCENH,OYCENH,OXXTNT,OYXTNTf OXCURA,OVCURA,nXCURM,OYCURM 

DATA  XLENN,YCtNN,XXTNT»YXTNT,XCURA»YCURA,XCURM,YCURM, 

1 DXCtr.M,DYCENM,OXXTNT,OYXTWT,OXCURA,OYCURA,OXCI)RH,nYCURM 

xrtNM.  CURSTA(XCUHM)-(CUR3TA(XCURM)-0XCFNM)*FAC 

YCFNH«CIJRSTA(YCURM)-(CURSTA(YCUSM)-0YCENM)*FAC 

return 

f MO 


202 


r>AVF 

F \ T V 
nS 

ppr'CnH 

32 

nvifni 

r'in 

x»?r4» 

V1?C? 

n IP 

( '.iM) 

X»?C2» 

Wf)2PR 

r)^^nn 

PincnM 

5 Tm 

t»,SAVt* 

iin?4r? 

1 H» 

svf: 

1 , p M n 

nn?8K 

3,  RWKin*2 

R H 
A M 

oZ 

GO 

UM3P>U 

p 1?H 

si^r 

?,UMPCK 

k1(134l< 

vu,i9?W 

2#5f:N0 

UiK5«l? 

ri  3n 

RVL 

3,t^ 

H(13CU’ 

U1MW 

n 1 

no 

B vr: 

t ,RPA01 

rv7tP 

/I 

1 n 

C1,RCAni  ♦? 

(in4  4r? 

/^8HP 

4 2 3if* 

R'^^7. 

FRP 

i5n4Rr> 

48111 

1 ,LF 

(U14C»? 

•Id  It! 

BTH 

1 , START 

'A  f>  6 c P 

4 3 1 (rl 

l.'i 

1 irmp 

U1154U 

W?C2 
'11 :' 

STh 

1,1  MD 

mi*S8r? 

M 0 (t  r? 

r n » 1 

SVC 

1 ,RCAP 

1JUH’ 

i.H 

fl.STAT 

1 3 

RZ 

PF  r iipNi 

WftAU 

vi/yp 
«:1  2W 

r 

8VC 

2,  IISIPCK 

-ii929 

M?V‘ 

SVC 

?,St 

4 9 ft  9 
PI 

8 V( 

3,P 

n p 

n 1 

fvr.  rupij 

1 M 

p.SAVf: 

(1^741/ 

4 A r f 

1 b , u T 1 s ) 

t1!17fll' 

'M5il 

1b 

D117AP 

Lf 

nS 

4 

HM/r  r> 

SBMB 

pr  # 01 

r\C 

X » bhH8  * 

tiii0c*r^ 

111  MU 

nc 

#•  * 

Hfiflpr: 

"f|7  A9 

nc 

A (1  ^ 

^M)R4i^ 

MU7H9 

nC 

A(i.rN)^3 

1 V.  MA 

p 4(  'vi  I r 

OC 

y » r i^uA  » 

V'U  M 

oc 

* - * 
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OnSAI! 

»?r.An 

nc 

yneci^ 

000  M 

STAT 

itC 

ofiBf-.n 

0(100 

START 

he 

00901! 

0000 

CK'b 

dC 

0f192i< 

0M06 

iJKPCK 

he 

S 

0U9<in 

w(i9AH 

DC 

A(MSG) 

on96F< 

000/ 

SFND 

DC 

T 

0t!9flp 

'''0  04 

he 

4 

wnoAO 

HSG 

hs 

4 

0H9Ff; 

kno 
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subroutine:  REDSNOtlr le  vel,  INDEX,  IPNT,  ICOL) 

COMMON  /OATSTA/  CURLE  V ( 1 0 ) , AIJTOFS  ( 1 0 ) , GX  ( 1 0 ) , GY  ( 1 0 ) , COL  ( 4 , 1 0 ) 
COMMON  /DATB  AS/  PPEEIX  C10)  ,>JUMLEV  ( 10)  # INMENU  (10) , ZMQTHR (4,  10) , 
17M I NTH (4, 10), 0(4, 10),NUMX(4,10),NUMY(4,10),IFILE(4,10), 

2 0BINDXC4, 10),ITYPEC4,10),1COLQR(4, 10),NUHOB 
COMMON  /TREES/  MAPTRF,MENTRE,WORLO(2),ZINBUT,TRN0UT,8LCTBT, 

1 AiiFBL'T,ZOTBUT,HENBUT,AnNBUT,STABUT 

2 ,RMAP(2) 

INTEGER  ZINBUT,TRNBUT,3LCTBT  , AUFBUT, ZO TBUT , AONBUT , ST ABUT 

INTEGER  CURLEV,AUT0ES,GX,GY,C0L 

INTFOER  D0INOX 

INTpCfR  RFRSH 

DIMENSION  INDEX(2,4) 

DIMENSION  NAML8(2) 
data  RFRSH  /-!/ 

DATA  lAODR, length  /I, 2/ 

CAl  L RETREVf  IFTLEaLVEU,!)  , INDEX  ( I ADOP , ICOL ) , I PNT , NONE) 

IF f NOME  ,F0,  0)  GO  To  10 
COl  (ItOL,I)  ■ 0 
GO  TO  20 
10  IBI'FsTPNT 

CALL  SETBF  (MAPTRF.RMAP  , RFRSH, IPNT) 

CAIL  name (PREFIX (T), COL (ICOL, I) ,namES) 

CALL  SETITMCITYPCaLVEL, I) , INDFX(LENGTH,IC0L) , TCnLOR(LFVEL,I), 
1 NAMLS.TPNT) 

CAU  M5ENn(flHA0ITEM  , 6 J , 50 , IBUF , INDEX (LENGTH , ICOL ), ERROR) 

?0  RETURN 

FMO 
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O CO 


IJHRODTIME  RCSPONf  iCHARrLEN,  TCOLORT 

OMMON  /hniitia/  on, Off ,yc8, no, up, pass 

1 »AUTON,  MIT0F#STATIC 

common  /MENCON/  MENU,ONXC,ONRXC,nFFXC,nFFPXC,MENNMP(?) , 

1 srArUS(2),SYSTAT(2)#SYaRtSe2) 

2,vSTATY,RESYC»RLrrT 

COMMOkj  /tRE  CS/  maPT«F»mfnTRF,WORI  0(2),ZINBUT,TRNHUT,SLCTBT, 

\ AUFOOr  ,Z0TBUT,MENBUT,  AnN0IIT,STABUT 

2 ,RMAP(2) 

TmTEGCR  7tN0UT,TRNRUT,aLCTBT  , AUF BUT , ZOTBUT , AONBUT , ST ABUT 

twtpgcr  auton, autof ^static 

INTEGLO  ON,OFF  , YFS»NO,|ip,PASS 

PEAL  ‘-EMNME 

CAIJ.  rRA3EfMENTRE,sySRE3,1.  ,-n 
CALL  OPrNT(SY5RE:S,?,,0,,5H.f  479*.,0) 

CALL  CHAR(0HSYSRCSCH,lCHAR,LFN,HLEFT,RFSYC,ICnLOR,I , 1,0) 

CALI  OISPI  V(‘^ENTRE,STATiJ8,PAS3,H.,P,,51  r.,A7P.,0.,O,,0,,SYSRES, 

UEtURK! 

CNO 
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P*Gt  1 


F.NTRY 

RITRF V 

* 

CALL 

PETPt  VfFILF,  INDLXn, con  .IPNT, NONt  ) 

F XTRN 

PRIIM^F  RM3G 

VIIJM? 

r 11 1 

r^ii 

? 

TNorv 

ruu 

4 

IUH6 

IPNT 

f yu 

6 

^'0^f 

f Qil 

B 

SAVt 

nS 

32 

f Mf/UP 

Pf  TPfV 

STm 

R,BAVC 

V]U?AU 

48?r 

1 M 

FIirrFll.F  (15) 

4R/1f 

LH 

INnMfl^fnFXCIS) 

c-r?rij 

4Rbf 

^n1n^ 

Lri 

1PMT,IPnT(15) 

i’d  1PI' 

4RHF 

ntipM 

IH 

MOKiL  , NONl  ( 1 *») 

MCl/ll? 

4n?t^ 

PH*  7f  P 

.STH 

Fllf  f PFII  F 

STORf  AOOR  riLf  NMHBFR  IN  PARAM  LIST 

4R  1 r. 

l.fi 

1,H(1PM) 

PIC  IIP  ADDRF33  nF  ALOCATFD  3PACF 

luun? 

AM\{> 

vitvpu 

STm 

1 n 

PUT  TT  IN  PARAMTFR  list 

^R1  A 
PWrlf! 

I.H 

unriNOFX) 

r.FT  RLRCK  AOPRF  S FROM  INOFX 

.«n44i> 

ti 

f/*  n ^ R 

Tj  t H 

l,Rl  K 

PUT  IT  IN  PARAMf  TFR  list 

tSMRM 

4R1  /. 

iA^^\AA 

1 H 

1 ,4(INnf  V) 

OFT  NUHRFR  of  F.NTRTFS  from  ParAHFTER 

LIST 

(UMrn 

ecu* 

SKhl 

lr4 

SHIFT  OUT  RVTF  ADDRESS 

vmspi? 

4?-?n 
pnbi  f- 

R N7 

PF  TP 

CONTINlif  IF  not  empty  column 

'inf)  41? 

4BAC. 

nt^ra  'f 

1 H 

1 H, THPFF 

load  pmpty  col  rftiirn  code 

nobHi^ 

PMf.  AR 

R 

RF  TURN 

n^i*)C»? 

C'  n 4 

wrip 

1 H 

?,4(iR0f  y) 

Gf  T f NTRY  AODRFS  IN  BLOCK 

nn^ni? 

44?l 

MM 

?pHASK 

get  RIO  OF  POINT  COUNT 

nn64i? 

/A  12 

*hr 

\,?. 

ADO  TO  POINT  COUNT  TO  RE  READ 

WfJftbif 

COlvi 

SUHL 

Ip  1 

MULT  BY  2 numbers  PER  ENTRY 

nn6Ai? 

4 n jt'' 
nnnau 

3Th 

1 , NMH 

STORf  number  of  FNTRIES  IN  PARAMETER 

RLOCK 

jobri? 

4 1 r i< 
nnpnf 

hAt 

ISpDPIJM 

READ  THf  COL  FROM  DRUM 

mi7?i* 

k^MPf 

nc 

14 

nnru  If 

pc 

A(TMPP  D 

nri7M» 

OF  Mr 

pc 

*•* 

nn;Ri» 

iAVl^V- 

ntifFTH 

pc 

* — * 

nn;4u 

PC 

A(NIJM) 

nnzci? 

t*  {-'  n A R 

PC 

A(RLK) 

nn?f  If 

PV'PC^f 

nC 

A(FRRPP) 
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P4Cf  2 


48CH 

12,tRWRR 

4 310 
0O94R 

cnwT 

(10881? 

4 j r 0 

MOBor 

8Al 

15,rRMflG 

DC 

8 

iioaEi? 

00E4W 

DC 

A(MSni) 

0W9PIR 

WR 

DC 

A(ELIV) 

H092R 

oeDfR 

DC 

A (FRPnR) 

00041? 

4814 

0004 

CONT 

IH 

lr4(TN0EX) 

r,rT  COL  8TAWT  lOCATION  IN  block  read 

0008R 

441^.' 

O0E2R 

MD 

Ir^'ASK 

AND  OUT  Lf  noth 

009CM 

cnio 

0003 

slhl 

W3 

MULT  BY  0 BYTF5  PF R FNTRV 

o'uor? 

4 410 
0078R 

AM 

WBUFFTR 

ADD  rOL  START  TO  BFOTNING  OF  BUFFER 

(i(1A4i? 

f.Bt'4 

0018 

5MI 

1#24 

allow  ROOM  FOR  ?4  BYTE  HfAOER 

OOABf? 

401  r, 
000M 

8TH 

i,0(iPMn 

STDRI  address  in  .return  PARAHeTER 

* 

PUT 

Closr  AT  FNH  or 

BUFFER 

OOACO 

4830 

oensR 

IH 

3,NUH 

OFT  number  of  FORTRAN  NUMBFRS 

00801? 

CU30 

MO02 

8LHL 

3,2 

MULT  BY  4 PYTFS  PFR  NUMBER 

(30B4R 

4A30 

O078O 

AH 

IrPUFfTR 

POINT  TO  END  OF  BMFFFR 

ooasR 

C6R0 
F Ff  f 

Lrti 

0,-1 

GET  END  OF  BUFFER  DELIMETER 

OOBCf? 

4003 

0000 

sTh 

0,l1f  3) 

oncoR 

07A  A 

yHR 

10,10 

OTMER  DFLEMTFTERS 

0(5020 

40A3 

0002 

STh 

10,2f 3) 

STORE  TN  BUFFFR 

OOC6R 

40  A 3 
0004 

3 TM 

10,4f3) 

OOCAI? 

40  AH 
00('k* 

Wf  TURN 

3Th 

10,0(NinMF) 

SET  return  coof 

BOCCR 

n 1 00 
000  OR 

LM 

0,3AVE 

00^21? 

4 An 
00  00 

AM 

lt),0(  15) 

mm^n 

03Of 

bw 

15 

0f5O8»? 

000V 

NIIM 

nC 

(•0041? 

0000 

PI  K 

DC 

*«* 

oonci? 

0003 

THRfi: 

oc 

3 

0oncR 

0000 

r RROR 

nC 

* w * 

0U(  r^l? 

0 000 

DC 

«•* 

PNO  haleworo  of  error 

oorpi? 

00  0f- 

'^ASK 

oC 

X * M(*0F  • 

0OC4R 

f)24B 

84B? 

45»)A 

2044 

^2b^ 

4I)?0 

MSOl 

DC 

C'RFTRrv  OPMM» 

0.if  ?i? 

0 40M 

r LCV 

r>C 

1 1 

wor^f? 

r 
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SUBr^OUTiME  RpJnrxdfLFTTOPfLEV,  INDFXJ  rni  tA  1P!^ 

COMHHM  /OATSTA/  CURULVC  IPi)  , AUTOFSdCl)  »r,X(10)  »GY  (1^)  »C0L(4»  1 

COMMON  /OATBAS/  PREKlX()0),NUMLEV(!B),INMFNUa^jZMOTH^ 

lZM'lNTHr4,lt))»D(4,l(')rNUMX(4,l0)fNUMY(4,lPt)rIFILE(4,lf"^  » 

2 S5lNDXMll0)dTmC4d 

IMTERfR  CURLFVf  AUTOFSfRXf GY,COL 

JNTEGf-R  DBIMDX 

integer  error 

dimension  BUF(36)f lNDEX(2f 4) 

IPYTE  *aFTTOP-n  *4 

CAIL  nRL'M(.l»PBINOX(LEV,  I)  »0NF»36»  IBI  KfFRROR) 

Tr-  rrOROR  ,mF,  P)  caul  CRMSG(11HRIN0FX  drum,  J 1»FRR0R) 

IPOf.sTPYTF  -T8LK*128 

iP0SBiPns/4>i 

CALI  IMMVEfnUF(IPOS) flMDEX) 


RET'IRN 

END 
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iM 


?6I 


Jf! 

40 


/e 


SUHWjDT  HPCPL  f I»'^GX»NGY,  IFORC^  ) 

COr'i-Of-  /f,H*SC/  ^<»8*«(^.40),Ir^T,^RSI^L 

COM-ON  /n*T3TA/  CURl  FV(|fl),AUt0F8(t*')»GX(l0)iGY(m)»C0U(4»lP) 
common  /OATOAS/  PRF^  t*(  I P)  »N')MLEVn»0  » TNMrMK  1H)  ,ZH0THR(4,1P), 
17MINTH{4,1P),D(4,1H)  ,M)MX(4j  1P),NIJMY(4»  10),IFILE(4,1FI)  , 

2 OPTNOX(4,1R) ,ITYPF (4, 1H),TC0L0R(4,lP),NUMnR 
common  /TRCrS/  MAPTHF»*'ENFRE»'«0RLr)(2)  .Zl*JnUT,TPNmiT,8I.CTRT  , 

1 AUFflin  . FOTBllt  »HFNBUT,  AORRMTfSt  ABUT 

2 ,Rmap(2) 

INTrr.rw  7TMPUT,TRWBUtr3LCTnT  , AliFRUT  , ZO  t RUT  , AP‘'but  , ST  ABUT 
intfglp  OHINOX 

INTFr.CH  CUHI  E,V,AllTnFS,GX,GY,COL 
tUTFGFH  f.HSlZF 

oImcnston  ITCMP(4) , 1nDLX(2,4T 
UM  •IARS(NGX-GX(n) 
frfNGX  ,GT.  GXm)  GC  TO  IB 
IFMO  ■ 4 
tSTART  a 3 

TF  (1  IM  .FO,  n I3TART  a 4 

JRnTa4-l IB 

GO  TO  ?p 

ISTART  a 1 

IFMO  a 2 

IF (LIM  .ro.  n ICNO  a 1 

IROTal.IB 

call  CLmf RS( I, TSTARI , ienpt 

CALL  CRA3C(MAPTRr,F.R3AR,lCNI,2) 

IF0RCt«1 

ICNTaB 

no  fiP  3a  1 , IHOT 

00  3P  IC0L*1,4 
<aTCOL*t 

irnCOL  .FO.  4)  K a1 
ITFMPdCOLI  a COLIK.n 
CO-iTIMUf 
00  4P  ItOL«l»4 

LOLFlCOL.n  ■ ITFMPdcni  ) 
cont  iNiir 

CONT  TNL'F 

LFVa  a CURLCVm 

CAI.L  SCTImx(I,|  CVEl  »NGt,Nr,Y,l.  FTTOP.IBOF  x,ibuf»nonf) 

IF  (NONE  .A'f.  ?)  GO  TO  70 
or  6P  IC0L»lr4 

IF  (COLdCOL.II  .A'F.  BT  GO  TO  AO 
tOlffCOL.n  aLFITOP  ♦ TCOL-1 
TP'iTaTRIir 

LAll  RrOSMon.U  VFL,  TMOF  X,  IPBT  , ICOl  ) 

COM  INIIf 

CAU  rcALOc 

IFF  TIjR'i 
F “0 
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PAGF  ! 


* Call  nrrnF  RF.Pff  RSh.ipnT) 


ENTRY 

sr  tbf 

SAVE 

03 

16 

PET 

FQU 

0 

IJUP2 

TPEE 

lQ\) 

? 

IMIRA 

WHEPf 

1 Ul| 

4 

flUPS 

REf  RSH 

f NU 

6 

IPNT 

rau 

8 

Doau 

mpbmr 

5ETPF 

SiM 

8, SAVE 

001  4R 

4801 

00P8 

LH 

12r IPNT(1 b) 

001  8R 

4 860 

LH 

IPNT,0(12) 

OfMCR 

48PF 

POO? 

lh 

9,TRFF ( 15> 

OOP0R 

4899 

0000 

IH 

9,0(9) 

0024R 

4098 

ooew 

sth 

9,l1f  IPNT) 

0028M 

C8PB 

0002 

LHI 

IPNT,?( IPNT) 

002CR 

48QE 

0004 

9,wMf RE(IB) 

003PR 

C8PH 

0004 

Lrt! 

1 1 »4 

0034R 

48A9 

00M0 

1 onp 

1 H 

10,0(9) 

0038R 

40A8 

0000 

SFh 

10,0(IPnT) 

W03CI? 

C888 

0'1P2 

Lol 

IPNT,2(IPmTI 

(104PIR 

C899 

0002 

L«I 

9,2(9) 

0044R 

LBOL 

0001 

SHI 

Ilf  1 

004RR 

4P3M 

0034P 

PN7 

LOOP 

Ofl4f:R 

4891 

0006 

LH 

Q,Pf  EPSHf 1 S) 

480Q 
000H  . 

IH 

9,0(9) 

0054R 

VH00 

SiH 

9,H(  IPNT) 

0058R 

C8BR 

000? 

1 HI 

IPNT.PdPNT) 

00500 

4'48C 

0000 

STh 

IPNT,0(l?) 

((306PP 

0180 

0000P 

1 M 

8 , S A V I 

4 AI  I 
0^00 

AH 

15, WI  T(1*S) 

H06BR 

006A1? 

0 301 

«M 

f NO 

15 

PIC^  UP  POiNTtP  AODPESS 

PICK  UP  POINUP 

GfT  ApnPFSS  OF  TPFr 

GCT  TPfr  NUMRLR 

PUT  TPrr  IN  PUFFER 

POP  Ri'FFFR  POINTFR 

GIT  AnORFaS  OF  WHfPF  NAMF. 

5f  T I OOP  CnUNTLR 

GFT  1ST  WORD  OF  WNfRE  WAHF 

STOPF  TT  IN  BLIFMP 

POP  PUFIfP  POINTFP 

PPP  ^AMf  PPTNTFP 

DONF  LOOPING 

NO  LOOP  again 

GFI  ADOPFS  of  PEFPFSH  TYPf 

GFT  Pf  FPFSH  TYPF 

STORt  IN  HMFFFP 

POP  RUFFFR  POINTFR 

Sf T BUFFER  POINTFR  IN  RETURN  PARAMETERS 
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SttfePOuTTNE  SrilNXdf'  VEL  , NGX  , NG  Y , IF  TTOP , I NOFX , I PN  T , NONE  ) 
CALL  TCPU  T(I,LrVFL»NGX,NGY,LFTTnP) 

CALL  RlMOFX(I,LFTTOPrLEVEL,INOt.X) 

CALL  ALLncnNDEY,IPNT,NONE) 

RETURN 

FN-) 
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p*Gr  1 


f-.NTWV 

SC  TJTM 

* 

Call 

aCTIThf ITYPFrR# 

COLOR. IPNT) 

finptw 

PF  T 

\ RIJ 

P 

wne? 

TTVPF 

F RU 

? 

4UJC"4 

N 

fRU 

4 

COLOR 

FRU 

A 

MAM[ 

fUU 

8 

IPMT 

F RU 

IP 

BAvr. 

03 

3? 

inipp'R 

PPMP 

MtHU’R 

$ftttm 

STm 

P,SAVF 

(4(124R 

4ojr 

IH 

lrJPNTfl5) 

On?BR 

48A1 

LH 

IPRT,P(1) 

PICK  LIP  BUFFER  POINTER 

ktW2CR 

482F 

LM 

ITVPC  rITVPF (15) 

W03P<R 

4T3? 

IH 

3,t4f  itypf:) 

LO*D  TYPE 

J^n34R 

C03w 

SLml 

3,12 

PUT  TYPF  IN  HIGH  ORDER  BITS 

MPPC 

t<R38R 

/•84F 

M(1W4 

LH 

N,N(15) 

OFT  ADDRESS  OF  NUMBER  OF 

POINTS 

WtUCR 

4844 

ponn* 

IH 

N,P(R) 

GET  number  of  POINTS 

HR4C^I> 

f,C4p 

SPhl 

R,  4 

GET  Win  OF  BYTE  ADDRESS 

1^(M4R 

1^634 

OHR 

3,N 

MAKF  ITCH  HEADER  OF  TYPE 

*N0  POINT  COUNT 

^I?4BR 

4C13A 

pC^4ll 

$Th 

3,wnPRT) 

PUT  IT  IN  PUFFEP 

Oi()4AR 

r.AA  A 

1 HI 

TPRTr?(TP*^T) 

POP  BUFFER  POINTF.P 

(1f14r  R 

48^f 

LH 

COI  OR,Cni  0RM5) 

HtJfi2R 

4866 

tiPUP 

1 H 

COLOR, ti(rOLOR) 

nf156R 

4P6A 

STH 

rnLnw,PI(TPRT) 

PUT  COLOR  INTO  HUFFFR 

h^^AR 

C8AA 

Ml 

TPWT,2(IPRT) 

POP  BUFFER  PniNTFR 

^^^IbFR 

r.P7n 

LHI 

7,4 

3FT  LOOP  COUNTER 

mift?R 

4 8 8 ^ 

IH 

NAMF  ,WAHF  ri5) 

Gf  T AOORFS  OF  N*Mf 

(U)66R 

4058 

1 OOP 

LH 

5,  PfHAMD 

PICK  UP  NAMf 

WP6AR 

4M5A 

M (- ... 

SFh 

b,H(IPNT) 

STORT  IN  buffer 

C8A  A 

LHI 

IPRTr?(lPfin 

POP  PUFFER  POINTFR 

■jn72R 

^ M ? 

LHT 

RAMf ,?fMAMF ) 

POP  NAMf  pointer 

Hfr/^P 

r8/, 

r,HI 

7,1 

DONE  looping 

l^M7  AR 

4?3m 

RN7 

LOOP 

GO  LOOP  IF  not  nONF 
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PiCF  ? 


invri! 

A6^^ 

TPMF»j^(n 

SAVr  POINTER  iw  RETURN  PARAMETER 

nic»^ 

1 M 

Cf^SAVt 

o(ia«p 

4H 

lh,Rf T(1S) 

unflAK 

tjoacp 

Hrt 

i^r> 

ir» 
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gubrouttvje:  stimsgcmsg) 

COMMON  /STATUS/  CURSTAflfi) 

DIMfNSTnN  MSG(l) 

JUTrGr.R  XCENM,  YCENMr  XXTNT,YXTNT,XCURA,  YCURA,XC')RM,YCURM 
INTEGER  OXCENM,OYrENM,nxXTNTrnYXTNT,OXCURArOYrURA,nXCURM,OYCI.IRM 
DATA  IX,IY/lr2/ 

DATA  XCENM,YCENM,XXTNT,YXTNTrXCURA,YCl)PA,XCURM,YCURM, 

I-  OXCENi«t,nYCENMrOXXTNT,OYXTNT,nXC!JRA,OYCURA,OXCURM,OYCURM 

DO  1 P!  J.i  i 
Ka.I>H  . 

ClIRSTAfK)  » tURSfA(J) 

CONflN-OE 

CURST  A CXCURA)  * FLOAT ( MSG ( I X ) ) 

CURST  A (YCURA)  » FLOATCMSGCIY)) 

CALL  LRTOMP(CURSTArXCDRA)  rCURSTA(YCliRA), 

1 a'RSTA  (XCURM)  ,CiiRSTA  (YCURM)  ) 

HE'fliPN 

END 
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SUBROUTINF  SE.T  ST  A ( ICHAR  , LCN) 

CORMON  /COUORS/  RCD » YF.tLnw , GRFFN,  BLACK 

CORHO^;  /MENCON/  ME^U,  QNXC , DNRXC , OFF.XC , OFFRXC , MENNRE 12 ) , 
t 37AHiS(2)f SYSTAT(2)»SY3RE8(?) 

2',STATY»RESYCf  RLEFT 
INTEGER  REDr YELLOW, PREEN » BLACK 
REAL  *^EMNME 

CAU  f HAR (SYST AT, ICHAR,LFN,HLEr T,8T AT Y, GREEN, 1,1,0) 

RE  I URN 

END 
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SDRROUTiMt'  STATCS(M3G) 
rOMMON  /MNI;TIA/  nN,OFF  , YPS,Nn»UP,PASS 
1 , AI)T0N,AUT0P  ,STATIC 

COMMON  /CURSTA/  MODE,XCrNM,YCENM,OXCrN,OYCrN,XFXTNT,YEXTNT 
1,0XXTMT,0YXTNT 

?,Xf:URA,YaiRA,UXCURA#OYCIJRA,XCURM,  YCURM,OXCURM,OYCURM 
TMTFGF  R 0M,0F>  , YrS#MO,UP»PASS 
•INTECrR  AUTOM,  AUTOFf  v'JTATir 
HOPE  ■ STATIC 
f'ETURN 
ENP 
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SUBROUTINE  STAT IN ( NAME , TYPE, LENGTH, ST AT ) 
COMMON  /DATA  / WORl D(2),Z00MIN,7nnM0T,MAPTRp 
COMMON  /STATUS/  CURSTAUe) 

RFAl.  NAME 

integer  type 
dimension  STATfn 

DATA  II, T2, 13, 14, 16/17,1  a, 19,20, 21/ 

DO  10 

C'JRSTA(J)  aSTAHJ) 

iw  conttn'df: 

WOPI..D(n*STAT(in 

W0RL0(21«8TAT(I2) 

ZnnHTN«STAT(I3) 

/nOMOTaSTATI 141 
MAPTRE«SUT(I6) 

return 

EMU 
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SUBROUTINE  TOPLFT ( I » LEVEL , NGX r NGY r LF TTOP ) 

common  /OATSTA/  CURLEV(  10)  r AUTOFSnPl)rGXn0),GY(l(5)  »C0l(4r  10) 
COMMON  /DATBAS/  PRLKIXC 1 0) » NUMLEV  f 10 ) f INMENUC 10) »ZM0THR(4# 10) » 
lZMINlH(4rl0) »Df 4r 10J  r ^UMX  C4, 10) ,NUMY(4, 10)rIFIlE(4»10)» 

? I>RINDX(4, 10)»  lTYPEC4rl0)»ICOLORf4f  10)»NUMDB 
INTEGER  CURIE V,  AtITOFSfGXr GY rCOl. 

INTEGER  OBINOX 

LFTTOP  b ffNGY  + 1)  * NijMXaEVELrD)  ♦ (NGX-1) 

RETURN' 

end 
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SUPnoiiTlMF  TRANTP(m8G) 

COMHPK  /PATA  / WORtO(?) ,ZCOMIN,200MOT,MAPTRE 
Cnn't'ON'  /STATUS/  CURSTA(16) 

OJMCNS.TnH  MSG(n 
lUTrocp  r.RROR 

lNTr.Gf:R  ycf  NM,  YCFNPi»XXTNT»VXTNT,XCURA,  YCURArXCURM,  YCURH 
INTTGFJ}  nxrCN»^»OVCf.NM,OXXTNT*OYXTNT,OXCURA,OYCURA,nXCIJRP,OVCURM 
DATA  Xf:tMM,YCEKM,XXTNT,YXTNT,XCURA,YCURA,XCURM,YCURM, 

1 ny{  Fr)<i,OYCFW»OXXTNT,fjYXTNT^OXCURA,OYCURA,nVCURM,OYCURM 
? /I  3, 4,5, 6,7,  A.  11,  t 2,13,14,15,16/ 

CALI,  :ifTHSG(MSn) 

DISTX  s ?56,-CURSTA(XCURA) 

OISTY  3 240.  -CUPSTA(YCURA) 

CALL  TRanS(MAPTRF,  world  , DISTX, PISTY, 0,1) 

CljR5TA(yr;F.NM)  * CURSTACXCURM) 

CUpr.TA  f VCEWM)  * CURSTA(YCUPM) 

CALL  SCmdCSHCURSTA  , 63, 50 , CURST  A , 64 , ERROR ) 

iffLK'KCR  ,Nr,  0)call  erhsg  (iihtrawtp  send,  1 1 ,ERR0P) 

Rt turn 
END 
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GtlflQO'jr  INE  WRTCHR(I»X,SECNME,ICHAR,  ICOLR) 

COMMON  /MNUTIA/  ON,OFP,YFS,NO»UP,PASS 
1 ,AUrON,.U!TOF, STATIC 

COKMON  /T9FES/  MAPTRE»Mf  NTRF , WORL D f ?) » Z IN0UT , TRN8UT , SLC TRT , 

1 A'irnuT,ZnTBUT,MENBUT,  A0NBDT»3TAB!JT 

2 »RMApr?) 

COMMON  /OATSTA/  CURUEV(lR),AUTnFS(10)»GX(10),GY(lcn,COL(4,10) 
COmmotj  /OATBAS/  PRFHX(10),NI|MLEV(l(n  ,INMFWU(10),ZMOTHR(4,  IP), 

1 7MINTM(4,  10)  ,D(4,  IP)  ,NUMX(4,  IP)  ,NIJMY(4,IP)  ,IFILf  (4,  IP)  , 

P nHIN,->y(4,lP)  ,ITYPEC4,  JP)  , IC0L0R(4,  IP)  ,NUMOD 
COMMOn  /MtNCON/  MFN'i,nNXC,ONRXC,nFrXC»OFFRXC,MENNMF(?), 

1 r,TATHST2)  ,SYSTAT(2)  ,SYSRES(2) 

2,STAT)  ,Rr.SYC,RlE  FT 
INTFGCR  nN,OFF, YrS»NO,UP,PASS 
IMEGLF  AUTCNrAiiTOFrRlATIC 

IMEGER  7INBUT  , TRNBUT  » SLCTBT  , AUFBUT » ZOTBUT  , AONRIJT  , 3TABIJT 
INTEGER  riJRLEV,  AUTnFS,GX,GV,COL 
INTEGER  ORINOX 
r?EAL 

DTMENSlnN  CNAME(?) 

TT  (INMEMJd)  .EO.  NO)  GO  TO 
CALL  DBPOSTIrY) 

CALI  namf (PREF IX(I) »Sf Cnme,CNAMe) 

CALL  OPENT fCNAMF,P. 1 .,479,,P) 

CAM  LHAR(CNAME,ICWAW,?,x,y»ICO|,R  ,),1,M) 

CALL  0ISPLY(NENTRF ,3TATUS,PASS,P. ,P. ,5M , , 479 , , M , , P , , P . , CNAMF , - 1 ) 
10  return 

FNO 
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SUHNOUTIMf  ZMIMTP(MSG) 

COMMON  /r)AT^  / Wdf?l  D(2),Z00MIN,ZP0M0T»MAPTRF. 

OlMrNSinN  MSG(l) 

r.AU  znMTnP(HSR,7noMjN) 

PFTL'PH 

Ff'D 
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SUBROUTIMF  ZH0UTP(M3G) 

rOHr'ON  /DATA  / WDRL  D(2)  ,ZOOMIN,ZOOMOTf  MAPTRF 
DI^'f:^•SIO^J  MSG(l) 

CAM.  ZOMTOPCMar, ,7001^0?) 
r?fTllRN 
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SUBMOtlTTNF  7MTRMS 

rnMMON  /CURSTA/  HflOE,XCENM,YCFNM,nXCCN,0¥LF  W,XFXTNT,YF  XTNT 
) ,OVXTNT,C)YXTNT 

2r  /FUHA,  VCUPA»OXCIJR*#OYCURA,XCURM,YClJRf^,OXCURM,OYCURM 

cn«*MOM  /mnutia/  on, off, yes, no, up, pass 

1 ,AUT0N,AUT0F, STATIC 

CO  V10N  /TREES/  HAPT«t#MENTRt  ,WtlRtD(2)  »ZINBUT,TRNBUT,Sl  CTBT, 
i AUFBtJf  ,7nTBUT,MENRUT,AONRUT,STABUT 

I^rrOfR  7tNB'Jr,TRNpUT,Sl  CTBT  , AtJFPUT  r ?0TB11T  , AflNBUT  ,ST  ABUT 
INTEGER  ON,nFE, YES»N0,UP,PAS5 
tNUGEH  AHTON,  AUT0P»STAT1C 

CALI.  Rt  ERSH(MAPTPE,'fl,0) 

irrxExrNT  ,eq,  oxxtnt)  go  to  m 

IFTMOOE.IO.AUTON)  call  AUTONZ 
JEf^noE  .to,  AHTOt  J CALL  AUTHEZ 
TFfAOor.Mt,  5TATTC1  CALL  MDlSPfiro»Cn 
to  CALL  ■straws nEQHCE) 

CAU.  MtFRSHf  MAPTRC  , I,  IFORCn 
RE  rURM 

ENT 
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Si'Rr.'nijT  T*'F'  ZOMTOP(RSfi,F  AC) 

Cn^iMOh  /status/  CLlPSTA(t6) 

COinjCM  /rUTA  / WOR(.0f  2)  , ZnOPIN^ZOOMOTfMAPTRF 

TNTCM.P  XCF  NM,  yCCNMr  XXTWT,  YXTNT,XCMRA,  YC1IRA,XCURM,YCURM 

INTf  rfP  nxtCNM,nYCrNH,nXXTWT,nyxTMT,OXCURA,OYrURA,nXClJRM,OYC>lRM 

INTf.(.f,n  f RMC3R 

MSG(i) 

DATA  X(.EMM,yCFNR,XXrNT,YXTNT,XCilRA»YCURA»  XCURM^  YCUR'^, 

1 nxcMiM,nYCENtM,OXXTNT,OYXTNT,PXCiiRA,OYCURAf  OXCl)RM,OYCURH 

CALI.  ?FTMsG(HSG) 
rAf.Tf'P  c l./fAC 

CAM.  SLALECF'APTRFrF  AcTnR,ci)RSTA(XCURA)  ,CIIRSTAfYCURA)  , WORLD 
1 ) 

cur.';ta( xyT^'T)  »cnRsrA(oxxTNT)  *fac 

CltPGT/ rYXTNT  ) » CURSTA  (OYXTMT)  *FAC 

CAU  NEWlLN(F  AC,CURarACOXCFNM)  ,ClJRSTA(OYCr.NM)  , 

1 U.PSTA  (XCCA!R)  ,CUPSTA(YCfNM)  ) 

CALI  SLMr,(0hf:uPSTA  , , 5M , CUR  ST  A , 64 , ERROR ) 

irrfP».'GR  .UE.  0)  CAUL  EPMSGfl  tHZOPTOP  SEND  ,fl»ERROR) 

Rf.  TURN 
EUD 
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